OFFSET
0,1
FORMULA
a[n] = PrimePi[a[n]]+6^n+1.
EXAMPLE
a[4] = 1539 = PrimePi[1539]+6^4+1 = 242+1296+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[6^n], {n, 0, 17} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 27 2001
EXTENSIONS
Corrected by Vladeta Jovovic, Dec 10 2001
a(18)-a(22) from Chai Wah Wu, Apr 21 2018
STATUS
approved