OFFSET
1,1
COMMENTS
EXAMPLE
Northwest corner:
2, 7, 23, 71, 223, 673, ...
3, 11, 37, 113, 347, 1049, ...
5, 17, 53, 163, 491, 1481, ...
13, 41, 127, 383, 1151, 3457, ...
19, 59, 179, 541, 1627, 4889, ...
29, 89, 269, 809, 2437, 7331, ...
MATHEMATICA
seqL = 14; arr2[1] = {2}; Do[AppendTo[arr2[1], NextPrime[3*Last[arr2[1]]]], {seqL}]; Do[tmp = Union[Flatten[Map[arr2, Range[z]]]]; arr2[z] = {Prime[NestWhile[# + 1 &, 1, PrimePi[tmp[[#]]] - # == 0 &]]}; Do[AppendTo[arr2[z], NextPrime[3*Last[arr2[z]]]], {seqL}], {z, 2, 12}]; m = Map[arr2, Range[12]]; 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