The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #22 Aug 20 2024 16:05:39
%S 33608,66762,100978,124508,125049,172619,202315,233905,256422,286306,
%T 306691,320569,326694,334412,362134,374275,382591,395155,414640,
%U 428335,440270,467181,493060,511698,518536,555912,561795,567479,590434,592581
%N Numbers k such that difference between k-th prime and next prime is 100.
%H Harvey P. Dale, <a href="/A116496/b116496.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F A050434(n) = prime(a(n)). - _R. J. Mathar_, Apr 30 2024
%e p(33609) - p(33608) = 396833 - 396733 = 100.
%t PrimePi/@Transpose[Select[Partition[Prime[Range[600000]],2,1],#[[2]]-#[[1]] == 100&]][[1]] (* _Harvey P. Dale_, Sep 22 2013 *)
%o (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
%Y Cf. A050434, A116493, A116495, A116497.
%K nonn
%O 1,1
%A _Zak Seidov_, Feb 18 2006