OFFSET
0,1
MATHEMATICA
Composite[n_Integer] := Block[ {k = n + PrimePi[n] + 1 }, While[ k != n + PrimePi[k] + 1, k = n + PrimePi[k] + 1]; Return[ k ]]; Table[ Composite[5^n], {n, 0, 18} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 27 2001
EXTENSIONS
a(19)-a(23) from Chai Wah Wu, Apr 21 2018
STATUS
approved