OFFSET
1,1
COMMENTS
This was generated by calculating the first million primes in a spreadsheet, finding their differences and then looking for two consecutive differences equal to 66.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
Prime[Last /@ SequencePosition[ Differences@ Prime@ Range[4 *10^6], {66, 66}]] (* Giovanni Resta, Apr 18 2016 *)
PROG
(PARI) list(lim)=my(v=List(), p=2, q=3); forprime(r=5, nextprime(lim+1), if(q-p==66 && r-q==66, listput(v, q)); p=q; q=r); Vec(v) \\ Charles R Greathouse IV, Apr 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Wendy Appleby, Apr 18 2016
EXTENSIONS
a(5)-a(26) from Giovanni Resta, Apr 18 2016
STATUS
approved