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

12454333, 21228553, 25131193, 38589673, 41426353, 46254253, 56564623, 60498133, 61151863, 96691213, 158497153, 169760713, 182960473, 201513133, 226086283, 236031463, 253806913, 290686483, 305472373, 344550643, 369110983, 380973253, 421335883, 445537333, 461955763

Offset

1,1

Comments

A generalization of A022008. The generalized pattern of consecutive prime-differences is {6a+4, 6b+2, 6c+4, 6d+2, 6e+4} with a = c = e = 2, b = d = 1.

Links

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

Formula

a(n) == 73 (mod 210). - Amiram Eldar, Feb 18 2025

Mathematica

Transpose[Select[Partition[Prime[Range[20000000]], 6, 1], Differences[#] == {16, 8, 16, 8, 16}&]][[1]] (* Harvey P. Dale, Nov 08 2011 *)

Prog

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

Crossrefs

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

Sequence in context: A178069 A167233 A187399 * A083405 A147749 A175753

Adjacent sequences: A102332 A102333 A102334 * A102336 A102337 A102338

Keyword

nonn

Author

Labos Elemer, Jan 06 2005

Status

approved