OFFSET
0,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 0..40
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[3^n], {n, 0, 25} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 27 2001
STATUS
approved