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[7^n], {n, 0, 16} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 27 2001
EXTENSIONS
Corrected and extended by Chai Wah Wu, Apr 20 2018
STATUS
approved