|
%I #38 Nov 03 2021 14:05:06
%S 2,7,23,31,41,53,61,137,157,193,233,241,257,283,293,311,397,439,479,
%T 499,523,557,593,647,883,1061,1129,1213,1303,1381,1429,1439,1543,1601,
%U 1847,1867,1877,1931,2011,2063,2129,2293,2333,2347,2393,2477,2551,2633,2677,2687
%N Primes removed by sieve generating A095117.
%C Primes not of the form k + primepi(k). [corrected by _Michel Marcus_, Oct 27 2021]
%H Bill McEachen, <a href="/A186098/b186098.txt">Table of n, a(n) for n = 1..10000</a>
%t Complement[Prime@ Range@ PrimePi[#], Array[PrimePi[#] + # &, #]] &[2700] (* _Michael De Vlieger_, Oct 27 2021 *)
%o (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
%Y Complement of A076757 in the primes.
%Y Cf. A095117.
%K nonn
%O 1,1
%A _Carmine Suriano_, Mar 29 2011
|
