OFFSET
1,1
COMMENTS
No additional terms up to k=500,000. - Harvey P. Dale, Jul 12 2022
MATHEMATICA
Select[Range[52000], Mod[Prime[Prime[#]]+2, Prime[#]]==0&] (* Harvey P. Dale, Jul 12 2022 *)
PROG
(PARI) p=c=0; until(0, until( isprime(c++), p=nextprime(p+1)); (p+2)%c & next; print1( primepi(c)", "))
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
M. F. Hasler, Feb 04 2009
STATUS
approved