|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
Cf. A054342, A058867, A178136.
Sequence in context: A184651 A123086 A208490 * A345718 A346359 A233634
Adjacent sequences: A272018 A272019 A272020 * A272022 A272023 A272024
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Wendy Appleby, Apr 18 2016
|
|
|
EXTENSIONS
|
a(5)-a(26) from Giovanni Resta, Apr 18 2016
|
|
|
STATUS
|
approved
|
| |
|
|
