A116493 - OEIS

%I #23 Aug 21 2024 12:27:49

%S 15783,15927,16879,18266,19466,22292,26186,33806,37668,38333,38432,

%T 42892,43407,45053,52934,54738,54854,56812,57314,58394,61165,72298,

%U 79627,80258,81214,83711,83730,83886,89236,92187,92609,94910,95317,95807,98103,100205,106516

%N Numbers k such that the difference between k-th prime and next prime is 70.

%H Jinyuan Wang, <a href="/A116493/b116493.txt">Table of n, a(n) for n = 1..5000</a>

%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>

%F A204792(n) = prime(a(n)). - _R. J. Mathar_, Apr 30 2024

%e p(15784) - p(15783) = 173429 - 173359 = 70.

%t Select[Range[95317],NextPrime[Prime[#]]-Prime[#]==70&] (* _James C. McMahon_, Aug 20 2024 *)

%o (PARI) lista(nn) = {pr = primes(nn); for (n = 1, nn-1, if (pr[n+1] - pr[n] == 70, print1(n, ", ")););} \\ _Michel Marcus_, Oct 09 2013

%Y Cf. A204792, A116495, A116496, A116497.

%K nonn

%O 1,1

%A _Zak Seidov_, Feb 17 2006

%E Name edited by _James C. McMahon_, Aug 20 2024