OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Select[Range[1000], PrimeQ[Prime[ #^2] - # ] &]
PROG
(PARI) is(k) = isprime(prime(k^2)-k); \\ Jinyuan Wang, Apr 10 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanya Khovanova, Dec 26 2006
STATUS
approved