OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Select[Partition[Prime[Range[500]], 4, 1], Last[#]-First[#]==8&]] (* Harvey P. Dale, Oct 01 2013 *)
PROG
(Other) if (primes[i+3] - primes[i] == 8) { printf("%u, %u, %u, %u, \n", primes[i] , primes[i+1], primes[i+2] , primes[i+3]); }
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Robert Hutchins, Mar 30 2010
STATUS
approved