OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
2 is a term because 2*3 - prime(2) = 3 is prime.
3 is a term because 3*4 - prime(3) = 7 is prime.
5 is a term because 5*6 - prime(5) = 19 is prime.
MATHEMATICA
PQ[n_]:=PrimeQ[n(n+1)-Prime[n]]
n=0; Do[If[PQ[Prime[k]], n=n+1; Print[n, " ", Prime[k]]], {k, 1, 1000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Jan 13 2014
STATUS
approved