OFFSET
1,1
COMMENTS
The rows and columns are all increasing, and every prime occurs exactly once.
FORMULA
EXAMPLE
Corner:
2 3 5 11 31 127 709
7 17 59 277 1787 15299 167449
13 41 179 1063 8527 87803 1128889
19 67 331 2221 19577 219613 3042161
23 83 431 3001 27457 318211 4535189
29 109 599 4397 42043 506683 7474967
MATHEMATICA
NonPrime[n_] := FixedPoint[n + PrimePi@# + 1 &, n];
t[n_, k_] := Nest[Prime, NonPrime[n], k];
Table[Prime[t[n - k, k]], {n, 0, 9}, {k, n, 0, -1}] // Flatten
Table[Prime[t[n, k]], {n, 0, 6}, {k, 0, 10}] // TableForm
(* after Robert G. Wilson v in A114537 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Feb 09 2024
STATUS
approved