A186098 Primes removed by sieve generating A095117.

2, 7, 23, 31, 41, 53, 61, 137, 157, 193, 233, 241, 257, 283, 293, 311, 397, 439, 479, 499, 523, 557, 593, 647, 883, 1061, 1129, 1213, 1303, 1381, 1429, 1439, 1543, 1601, 1847, 1867, 1877, 1931, 2011, 2063, 2129, 2293, 2333, 2347, 2393, 2477, 2551, 2633, 2677, 2687

Offset: 1

Author

Carmine Suriano, Mar 29 2011

Keywords

• nonn

Comments

Primes not of the form k + primepi(k). [corrected by Michel Marcus, Oct 27 2021]

Links

• Bill McEachen, Table of n, a(n) for n = 1..10000

Crossrefs

Complement of A076757 in the primes.

Cf. A095117.

Programs

Mathematica

Complement[Prime@ Range@ PrimePi[#], Array[PrimePi[#] + # &, #]] &[2700] (* Michael De Vlieger, Oct 27 2021 *)

PARI

genit(maxx=50)={arr=List(); for(n=0,maxx,q=n+prime(n+1); if(ispseudoprime(q),listput(arr,q))); arr} \\ Bill McEachen, Oct 27 2021