OFFSET
1,1
LINKS
FORMULA
A050434(n) = prime(a(n)). - R. J. Mathar, Apr 30 2024
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
Zak Seidov, Feb 18 2006
STATUS
approved