A204670 Primes p such that q-p = 64, where q is the next prime after p.
89689, 107377, 288583, 367957, 381103, 400759, 445363, 623107, 625699, 637003, 710713, 725209, 779413, 801883, 803749, 821677, 832519, 844777, 883807, 912103, 919447, 954763, 981823, 997813, 1003963, 1059349, 1066447, 1070689, 1072039, 1100683, 1148773, 1162129, 1163353, 1251463
Offset: 1
Keywords
Links
- M. F. Hasler, Table of n, a(n) for n = 1..8823 (all a(n)<10^8).
- Index entries for primes, gaps between
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[100000]],2,1],Last[#]-First[#] == 64&]][[1]] (* Harvey P. Dale, Nov 25 2012 *)
-
PARI
c=o=0;forprime(p=1,default(primelimit),(-o+o=p)==64&write("c:/temp/b204670.txt",c++" "p-64)) \\ M. F. Hasler, Jan 18 2012