OFFSET
1,2
MATHEMATICA
Select[Range[200], PrimeQ[Prime[Prime[#]]-Prime[#]+1]&] (* Harvey P. Dale, Jul 14 2024 *)
PROG
(PARI) for(k=1, 999, isprime(prime(p=prime(k))-p+1)&&print1(k", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Dec 31 2013
STATUS
approved