A116496 Numbers k such that difference between k-th prime and next prime is 100.
33608, 66762, 100978, 124508, 125049, 172619, 202315, 233905, 256422, 286306, 306691, 320569, 326694, 334412, 362134, 374275, 382591, 395155, 414640, 428335, 440270, 467181, 493060, 511698, 518536, 555912, 561795, 567479, 590434, 592581
Offset: 1
Keywords
Examples
p(33609) - p(33608) = 396833 - 396733 = 100.
Links
Programs
-
Mathematica
PrimePi/@Transpose[Select[Partition[Prime[Range[600000]],2,1],#[[2]]-#[[1]] == 100&]][[1]] (* Harvey P. Dale, Sep 22 2013 *)
-
PARI
lista(nn) = {my(i=0, q=2); forprime(p=3, nn, i++; if(p-q==100, print1(i, ", ")); q=p); } \\ Jinyuan Wang, Jan 29 2020
Formula
A050434(n) = prime(a(n)). - R. J. Mathar, Apr 30 2024