OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..32
Andrew R. Booker, The Nth Prime Page
N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]
MATHEMATICA
Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; a = {1, 4}; b = 4; Do[ If[ !PrimeQ[b], b = Prime[b], b = Composite[b]]; a = Append[a, b], {n, 1, 23}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 29 2001
EXTENSIONS
a(24)-a(26) corrected and a(27)-a(28) added by Chai Wah Wu, Aug 22 2018
STATUS
approved