A052189 Primes p such that p, p+18, p+36 are consecutive primes.

20183, 21893, 25373, 29251, 30431, 34613, 50423, 54833, 56131, 58111, 63541, 66413, 74453, 74471, 76543, 76561, 77933, 78241, 81421, 107563, 108421, 110441, 112163, 121403, 122081, 122561, 131023, 132893, 132911, 135283, 137303, 137831, 143141, 144593, 145643

Offset: 1

Author

Labos Elemer, Jan 28 2000

Keywords

• nonn

Comments

Old name was "Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=18."

Examples

			20183 is a term since , 20183, 20201, and 20219 are consecutive primes with difference of 18.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A031936

A033448 is a subsequence.

Cf. A001223, A033451, A047948, A052188.

Programs

Mathematica

Select[Partition[Prime[Range[15000]], 3, 1], Differences[#] == {18, 18} &][[;; , 1]] (* Amiram Eldar, Feb 28 2025 *)

PARI

list(lim) = {my(p1 = 2, p2 = 3); forprime(p3 = 5, lim, if(p2 - p1 == 18 && p3 - p2 == 18, print1(p1, ", ")); p1 = p2; p2 = p3);} \\ Amiram Eldar, Feb 28 2025

Extensions

Name changed by Jon E. Schoenfield, May 30 2018