|
|
A116496
|
|
Numbers n such that difference between n-th prime and next prime is 100.
|
|
26
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
p(33609) - p(33608) = 396833 - 396733 = 100.
|
|
MATHEMATICA
|
PrimePi/@Transpose[Select[Partition[Prime[Range[600000]], 2, 1], #[[2]]-#[[1]] == 100&]][[1]] (* Harvey P. Dale, Sep 22 2013 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|