|
%I #8 Aug 21 2019 14:35:09
%S 2,3,5,5,13,13,17,23,41,41,61,67,67,89,109,131,131,157,163,167,167,
%T 181,191,191,199,199,227,263,269,281,367,409,433,433,457,467,503,503,
%U 569,593,617,641,709,761,811,839,859,859,883,887,1019,1033,1033,1117,1193
%N Primes p of the form p = prime(k) - composite(k) for some k.
%e The 10th prime is 29, the 10th composite is 16. 29-16=13 the 5th entry in the table.
%o (PARI) primepcomp(n) = { for(x=5,n, y=prime(x)- composite(x); if(isprime(y),print1(y",")) ) } \ the n-th composite composite(n) = { local(c,x); c=1; x=0; while(c <= n, x++; if(!isprime(x),c++); ); return(x) }
%K nonn
%O 1,1
%A _Cino Hilliard_, Aug 23 2004
%E Example corrected by _Harvey P. Dale_, Aug 21 2019
|
