login
A116493
Numbers k such that the difference between k-th prime and next prime is 70.
26
15783, 15927, 16879, 18266, 19466, 22292, 26186, 33806, 37668, 38333, 38432, 42892, 43407, 45053, 52934, 54738, 54854, 56812, 57314, 58394, 61165, 72298, 79627, 80258, 81214, 83711, 83730, 83886, 89236, 92187, 92609, 94910, 95317, 95807, 98103, 100205, 106516
OFFSET
1,1
FORMULA
A204792(n) = prime(a(n)). - R. J. Mathar, Apr 30 2024
EXAMPLE
p(15784) - p(15783) = 173429 - 173359 = 70.
MATHEMATICA
Select[Range[95317], NextPrime[Prime[#]]-Prime[#]==70&] (* James C. McMahon, Aug 20 2024 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 17 2006
EXTENSIONS
Name edited by James C. McMahon, Aug 20 2024
STATUS
approved