|
|
A024351
|
|
Primes forming a 3 X 3 magic square with prime entries and minimal constant 177 = A164843(3).
|
|
8
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Sequence A073473 gives a variant using "primes including 1" (for historical reasons), to which also refers A073502. - M. F. Hasler, Oct 24 2018
|
|
LINKS
|
|
|
EXAMPLE
|
The square is [101 5 71 ; 29 59 89 ; 47 113 17].
The lexicographically smallest equivalent variant (modulo reflections on the symmetry axes of the square) is [17 89 71 ; 113 59 5 ; 47 29 101], cf. A320872. - M. F. Hasler, Oct 24 2018
|
|
PROG
|
(PARI) A024351=select(p->setsearch(P, 118-p), P=primes(30)[^5]) \\ 118 = 2*59, where 59 is the central prime; primes(30) = primes < 118. For the magic square itself, use A320872_row(1). - M. F. Hasler, Oct 25 2018
|
|
CROSSREFS
|
Cf. A320872 (3 X 3 magic squares of primes), A268790 (magic sums of these).
|
|
KEYWORD
|
fini,full,nonn
|
|
AUTHOR
|
Karl Schmerbauch (karl.j.schmerbauch(AT)boeing.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|