OFFSET
1,1
EXAMPLE
corner:
4 6 8 9 10 12 14 15 16 18
9 12 15 16 18 21 24 25 26 28
16 21 25 26 28 33 36 38 39 42
26 33 38 39 42 49 52 55 56 60
39 49 55 56 60 69 74 77 78 84
56 69 77 78 84 94 100 105 106 115
78 94 105 106 115 125 133 140 141 152
MATHEMATICA
c[n_] := c[n] = Select[Range[500], CompositeQ][[n]]
r[0] = Table[c[n], {n, 1, 10}]
r[n_] := r[n] = c[r[n - 1]]
Grid[Table[r[n], {n, 0, 6}]] (* array *)
p[n_, k_] := r[n][[k]];
Table[p[n - k + 1, k], {n, 0, 9}, {k, n + 1, 1, -1}] // Flatten (* sequence *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Oct 19 2024
STATUS
approved