OFFSET
1,1
COMMENTS
Primes are taken in successive blocks of 9 and arranged, for t>=0,
| prime(9*t+1) | prime(9*t+2) | prime(9*t+3) |
| prime(9*t+4) | prime(9*t+5) | prime(9*t+6) |
| prime(9*t+7) | prime(9*t+8) | prime(9*t+9) |
There are 8 lines altogether: 3 rows, 3 columns, and 2 main diagonals.
The sum of the first row is never duplicated since any other line has a greater sum.
The sum of the last row is never duplicated since any other line has a smaller sum.
EXAMPLE
2 is a term since its block of 9 primes is
| 2 | 3 | 5 |
| 7 | 11 | 13 |
| 17 | 19 | 23 |
which has among its lines (3 + 11 + 19) = (17 + 11 + 5).
67 is a term since its block of 9 primes (the 3rd block) is 67..103,
| 67 | 71 | 73 |
| 79 | 83 | 89 |
| 97 | 101| 103|
which has 67+83+103 = 97+83+73.
MATHEMATICA
a = {}
row = {{1, 4, 7}, {2, 5, 8}, {3, 6, 9}};
col = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}};
dia = {{1, 3}, {5, 5}, {9, 7}};
Duplicates[l_] :=
Block[{i}, i[n_] := (i[n] = n; Unevaluated@Sequence[]); i /@ l]
Do[If[Duplicates[
Flatten[{Total[Prime[row + 9 n]], Total[Prime[col + 9 n]],
Total[Prime[dia + 9 n]]}]] != {},
AppendTo[a, Prime[9 n + 1]]], {n, 0, 110}]
a (* Gerry Martens, Nov 12 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Saish S. Kambali, Nov 12 2022
EXTENSIONS
More terms from Gerry Martens, Nov 12 2022
STATUS
approved