OFFSET
1,1
FORMULA
MATHEMATICA
c[n_] := FixedPoint[ n + PrimePi[ # ]+1&, n] Table[ c[n! ], {n, 1, 16}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 19 2002
EXTENSIONS
Extended by Robert G. Wilson v, Jul 20 2002
a(17)-a(21) from Chai Wah Wu, Apr 21 2018
STATUS
approved