OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..51
MATHEMATICA
Select[Range[10^6], Mod[Prime[3 #] - Prime[2 #], #] == 0 &]
PROG
(PARI) { default(primelimit, 4294965247); n=0; for (m=1, 10^10, if (((prime(3*m)-prime(2*m)) % m) == 0, write("b066893.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 05 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 24 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 26 2002
Term a(23) from Harry J. Smith, Apr 05 2010
a(24)-a(36) from Giovanni Resta, Jun 18 2018
STATUS
approved