login
A090545
Primes arising in A090544.
2
3, 5, 13, 17, 13, 11, 17, 13, 37, 67, 17, 19, 37, 29, 67, 149, 59, 47, 37, 29, 67, 43, 149, 59, 281, 47, 37, 107, 67, 71, 43, 149, 59, 281, 47, 131, 83, 107, 67, 89, 71, 73, 149, 59, 281, 353, 103, 131, 83, 107, 67, 643, 89, 71, 467, 73, 149, 97, 281, 79, 353, 103, 131
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
Sequence in context: A063484 A057920 A018329 * A045411 A184796 A180944
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 09 2003
EXTENSIONS
More terms from Franklin T. Adams-Watters, Apr 26 2006
STATUS
approved