OFFSET
1,1
COMMENTS
EXAMPLE
Northwest corner:
2, 5, 13, 37, 109, 317, ...
3, 7, 19, 53, 157, 467, ...
11, 31, 89, 263, 787, 2357, ...
17, 47, 139, 409, 1223, 3659, ...
23, 67, 199, 593, 1777, 5323, ...
29, 83, 241, 719, 2153, 6451, ...
MATHEMATICA
seqL = 14; arr1[1] = {2}; Do[AppendTo[arr1[1], NextPrime[3*Last[arr1[1]], -1]], {seqL}]; Do[tmp = Union[Flatten[Map[arr1, Range[z]]]]; arr1[z] = {Prime[NestWhile[# + 1 &, 1, PrimePi[tmp[[#]]] - # == 0 &]]}; Do[AppendTo[arr1[z], NextPrime[3*Last[arr1[z]], -1]], {seqL}], {z, 2, 22}]; m = Map[arr1, Range[22]]; m // TableForm
t = Table[m[[n - k + 1]][[k]], {n, 12}, {k, n, 1, -1}] // Flatten (* Peter J. C. Moses, Sep 26 2013 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Sep 26 2013
EXTENSIONS
Incorrect comment deleted by Peter Munn, Aug 15 2017
STATUS
approved