OFFSET
1,1
COMMENTS
Old name was "Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=24."
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
EXAMPLE
40039 is followed by 40063 and 40087, consecutive primes with equal distance of 24.
MATHEMATICA
Select[Partition[Prime[Range[40000]], 3, 1], Differences[#]=={24, 24}&][[All, 1]] (* Harvey P. Dale, May 09 2019 *)
PROG
(PARI) list(lim) = {my(p1 = 2, p2 = 3); forprime(p3 = 5, lim, if(p2 - p1 == 24 && p3 - p2 == 24, print1(p1, ", ")); p1 = p2; p2 = p3); } \\ Amiram Eldar, Feb 28 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 28 2000
EXTENSIONS
Name changed by Jon E. Schoenfield, May 30 2018
STATUS
approved
