OFFSET
1,1
COMMENTS
MATHEMATICA
Composite[n_] := FixedPoint[n + PrimePi[#] + 1 & , n + PrimePi[n] + 1];
a[n_] := Composite[Prime[n]];
Array[a, 100] (* Jean-François Alcover, Jan 26 2018, after Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 26 2001
STATUS
approved