OFFSET
1,1
COMMENTS
These twins are not necessarily at the minimal distance as in A007530 (which is a subsequence).
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..5274.
Eric Weisstein's World of Mathematics, Prime Quadruplet
FORMULA
EXAMPLE
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.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[1500]], 4, 1], #[[4]]-#[[3]]== #[[2]]-#[[1]]== 2&]][[1]] (* Harvey P. Dale, Jul 07 2011 *)
PROG
(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
(PARI) p=0; A053778=vector(100, i, p=nextA053778(p+1))
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 24 2000
EXTENSIONS
Edited by N. J. A. Sloane, Apr 13 2008, at the suggestion of M. F. Hasler.
STATUS
approved