Problem Statement

A magic square is a square grid containing consecutive integers from 1 to N², arranged so that every row, column and diagonal adds up to the same number. That number is a constant. There is no way to create a valid N x N magic square that does not sum to the associated constant. A 3 x 3 magic square always sums to 15. A 4 x 4 magic square always sums to 34. Traditionally, the sequence leaves off terms for n = 0 and n = 1 as the magic squares of order 0 and 1 are trivial; and a term for n = 2 because it is impossible to form a magic square of order 2.

Let's start with the solution:

  [ 3 + dup 3 ** + 2 / ] is magicconstant ( n --> n )
 
  20 times [ i^ magicconstant echo sp ] cr cr
 
  1000 magicconstant echo cr cr
 
  0 1 
  [ over magicconstant over > if
      [ over 3 + echo cr
        10 * ] 
    dip 1+
    [ 10 21 ** ] constant 
    over = until ] 
  2drop