OFFSET
1,1
COMMENTS
a(n) + 56 is the greatest term in the sequence of 8 consecutive primes with 7 consecutive gaps 2, 4, 6, 8, 10, 12, 14. - Muniru A Asiru, Aug 10 2017
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MAPLE
N:=10^8: # to get all terms <= N.
Primes:=select(isprime, [seq(i, i=3..N+56, 2)]):
Primes[select(t->[Primes[t+1]-Primes[t], Primes[t+2]-Primes[t+1],
Primes[t+3]-Primes[t+2], Primes[t+4]-Primes[t+3], Primes[t+5]-
Primes[t+4], Primes[t+6]-Primes[t+5] , Primes[t+7]-Primes[t+6] ]=
[2, 4, 6, 8, 10, 12, 14], [$1..nops(Primes)-7])]; # Muniru A Asiru, Aug 04 2017
MATHEMATICA
Transpose[Select[Partition[Prime[Range[65000000]], 8, 1], Differences[#] =={2, 4, 6, 8, 10, 12, 14}&]][[1]] (* Harvey P. Dale, May 10 2014 *)
PROG
(PARI) list(lim)=my(v=List(), p=128981, t); forprime(q=p+2, lim+56, if(q-p-t==2, t+=2; if(t==14, listput(v, q-56); t=0), t=0); p=q); Vec(v) \\ Charles R Greathouse IV, Aug 10 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 21 2011
EXTENSIONS
Additional cross references from Harvey P. Dale, May 10 2014
STATUS
approved