A090545 Primes arising in A090544.

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

Links

Table of n, a(n) for n=1..63.

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

Cf. A090544, A090546.

Sequence in context: A063484 A057920 A018329 * A045411 A184796 A180944

Adjacent sequences: A090542 A090543 A090544 * A090546 A090547 A090548

Keyword

nonn

Author

Amarnath Murthy, Dec 09 2003

Extensions

More terms from Franklin T. Adams-Watters, Apr 26 2006

Status

approved