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

Author

Labos Elemer, Jan 06 2005

Keywords

• nonn

Comments

A generalization of A052378.

Links

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

Crossrefs

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

Programs

Mathematica

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

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

Formula

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