%I #15 Jun 18 2018 08:11:54
%S 1,2,6,21,25,32,174,400,918,960,971,987,2374,5928,5935,5942,5977,
%T 14838,37259,37282,94154,238309,1556445,4004112,10308825,10308837,
%U 10309843,10309906,26627152,68912912,68913663,68913687,68914102,68915077,68915098,68916054
%N Numbers k such that k divides (prime(3*k) - prime(2*k)).
%H Giovanni Resta, <a href="/A066893/b066893.txt">Table of n, a(n) for n = 1..51</a>
%t Select[Range[10^6], Mod[Prime[3 #] - Prime[2 #], #] == 0 &]
%o (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
%Y Cf. A000040, A255174.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Jan 24 2002
%E More terms from _Robert G. Wilson v_, Jan 26 2002
%E Term a(23) from _Harry J. Smith_, Apr 05 2010
%E a(24)-a(36) from _Giovanni Resta_, Jun 18 2018
|