A102333 Initial terms of quartets of consecutive primes as follows: {p, p+16, p+24, p+40}. The corresponding difference-pattern is {16,8,16}.

108247, 121507, 166783, 169567, 178207, 216133, 257053, 258763, 272863, 274123, 372613, 383533, 384343, 396157, 413143, 501577, 562477, 577153, 581353, 635293, 721267, 727273, 738937, 769903, 908113, 917713, 932497, 937903, 965467, 980377, 989647, 1008547, 1126537

Offset

1,1

Comments

A generalization of A052378.

Links

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

Formula

a(n) == 1 (mod 6). - Amiram Eldar, Feb 18 2025

Mathematica

Transpose[Select[Partition[Prime[Range[78000]], 4, 1], Differences[#] == {16, 8, 16}&]][[1]] (* Harvey P. Dale, Mar 18 2012 *)

Prog

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

Crossrefs

Cf. A001223, A022008, A052162, A052163, A052164, A052165, A052166, A052167, A052168, A052378, A067140, A067141, A102332.

Sequence in context: A157825 A205607 A205438 * A236650 A237789 A157533

Adjacent sequences: A102330 A102331 A102332 * A102334 A102335 A102336

Keyword

nonn

Author

Labos Elemer, Jan 06 2005

Status

approved