OFFSET
1,1
MATHEMATICA
f[k_] := k + PrimePi[k];
g[n_] := NestWhileList[f, f[n], CompositeQ] // Last;
a[n_] := g[n+1];
Table[a[n], {n, 1, 63}] (* Jean-François Alcover, Jul 31 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 09 2003
EXTENSIONS
More terms from Franklin T. Adams-Watters, Apr 26 2006
STATUS
approved