shapeArea :: Int -> Int
shapeArea n
  | n > 1     = shapeArea (n - 1) + 4 * (n - 1)
  | otherwise = 1

This returns the area of the growing n-interesting polygon using the direct formula instead of building the shape.