editing
approved
editing
approved
M. F. Hasler, <a href="/A053778/b053778.txt">Table of n, a(n) for n = 1,...,5274</a>.
(PARI) forprime( p=1, 10^5, isprime(p+2) || next; isprime(nextprime(p+4)+2) & & print1(p", "))
(PARI) nextA053778(p)={until( isprime(nextprime(p+1)+2), until( p+2==p=nextprime(p+1), )); p-2}
approved
editing
All terms are == 5 (mod 6). - Zak Seidov, Aug 10 2015
M. F. Hasler and Zak Seidov, , <a href="/A053778/b053778_1.txt">Table of n, a(n) for n = 1,...34380</a> First ,5274 terms from M. F. Hasler</a>.
These primes initiate consecutive p quadruples as follows: [p,p+2,p+6k,p+6k+2]. For 6k=6,12,18,24,30,36,54 such a p = 5,137,1931,9437,2968, 20441 and 48677 resp. Such a quadruple is [48677,48679,48731,48733], with [2,52,2] difference pattern.
nonn,changed
nonn
Edited by N. J. A. Sloane , Apr 13 2008, at the suggestion of _M. F. Hasler_, Apr 13 2008.
proposed
approved
editing
proposed
All terms are == 5 (mod 6). - Zak Seidov, Aug 10 2015
These primes initiate consecutive p quadruples as follows: [p,p+2,p+6k,p+6k+2]. For 6k=6,12,18,24,30,36,54 such a p = 5,137,1931,9437,2968, 20441 and 48677 resp. Such a quadruple is [48677,48679,48731,48733], with [2,52,2] difference pattern.
proposed
editing
editing
proposed
Edited by N. J. A. Sloane, Apr 13 2008, at the suggestion of _M. F. Hasler._, Apr 13 2008
proposed
editing
editing
proposed
All terms are == 5 mod 6. - Zak Seidov, Aug 10 2015
M. F. Hasler, and Zak Seidov, <a href="/A053778/b053778_1.txt">Table of n, a(n) for n = 1,...,34380</a> First 5274</a> terms from M. F. Hasler.
approved
editing
Transpose[Select[Partition[Prime[Range[1500]], 4, 1], #[[4]]-#[[3]]== #[[2]]-#[[1]]== 2&]][[1]] (* From _Harvey P. Dale, _, Jul 07 2011 *)