login
A272021
Balanced primes separated from the next lower and next higher prime neighbors by 66.
1
12012743, 12147463, 13408397, 15303667, 32676733, 34460407, 36050293, 36685867, 36804487, 37657423, 41516063, 51146867, 54702367, 56379217, 57203687, 58250207, 60696803, 63699127, 73576067, 74663377, 76853827, 78725443, 82015313, 92438317, 94073923, 94988423
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
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