A272021 Balanced primes separated from the next lower and next higher prime neighbors by 66.

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

Author

Wendy Appleby, Apr 18 2016

Keywords

• nonn

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

Crossrefs

Cf. A054342, A058867, A178136.

Programs

Mathematica

Prime[Last /@ SequencePosition[ Differences@ Prime@ Range[4 *10^6], {66, 66}]] (* Giovanni Resta, Apr 18 2016 *)

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

Extensions

a(5)-a(26) from Giovanni Resta, Apr 18 2016