|
|
A204669
|
|
Primes p such that q-p = 62, where q is the next prime after p.
|
|
2
|
|
|
34061, 190409, 248909, 295601, 305147, 313409, 473027, 479639, 531731, 633497, 682079, 693881, 724331, 777479, 877469, 896201, 1011827, 1088309, 1137341, 1152527, 1179047, 1181777, 1190081, 1210289, 1216619, 1226117, 1272749, 1281587, 1286711, 1305449, 1343801, 1345361, 1357361, 1464179
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are no two consecutive primes in the sequence, while there are such primes p=prime(m) that q=prime(m+2) is also a term.
First such p's are at indices 554, 908, 1902, 2588, 3035, 5320, 6213, 6881, 7853, 8262, which correspond to 10237391, 15442121, 27374771, 36040469, 41216027, 66544301, 76313597, 83565611, 93112589, 97515359 (respectively). Note that a(554) = 10237391 = A226657(31). - Zak Seidov, Jul 01 2015
|
|
LINKS
|
|
|
MAPLE
|
p:= 2:
count:= 0:
while count < 40 do
q:= nextprime(p);
if q - p = 62 then
count:= count+1;
A[count]:= p;
fi;
p:= q;
od:
|
|
MATHEMATICA
|
Select[Prime@ Range@ 120000, NextPrime@ # - # == 62 &] (* Michael De Vlieger, Jul 01 2015 *)
Select[Partition[Prime[Range[120000]], 2, 1], #[[2]]-#[[1]]==62&][[All, 1]] (* Harvey P. Dale, Apr 01 2017 *)
|
|
PROG
|
(PARI) g=62; c=o=0; forprime(p=1, default(primelimit), (-o+o=p)==g&write("c:/temp/b204669.txt", c++" "p-g)) \\ M. F. Hasler, Jan 18 2012
(Magma) [n: n in [2..2*10^6 ] | (NextPrime(n)-NextPrime(n-1)) eq 62]; // Vincenzo Librandi, Jul 02 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|