OFFSET
1,1
LINKS
N. Fernandez, An order of primeness, F(p).
FORMULA
T(1,k) = A007821(k).
T(n,k) = prime( T(n-1,k) ), n>1 .
EXAMPLE
The array starts:
2, 7, 13, 19, 23, 29, 37, 43, 47, 53,...
3, 17, 41, 67, 83, 109, 157, 191, 211, 241,...
5, 59, 179, 331, 431, 599, 919, 1153, 1297, 1523,...
11, 277, 1063, 2221, 3001, 4397, 7193, 9319,10631,12763,...
31, 1787, 8527,19577,27457,42043,72727,96797,112129,137077,...
MAPLE
MATHEMATICA
A007821 = Prime[Select[Range[15], !PrimeQ[#]&]];
T[n_, k_] := T[n, k] = If[n == 1, If[k <= Length[A007821], A007821[[k]], Print["A007821 must be extended"]; Abort[]], Prime[T[n-1, k]]];
Table[T[n-k+1, k], {n, 1, 9}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Apr 16 2020 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
R. J. Mathar, Jan 28 2014
STATUS
approved