|
|
A080167
|
|
Primes beginning with '10' and ending with '01' in binary representation.
|
|
2
|
|
|
5, 17, 37, 41, 73, 89, 137, 149, 157, 173, 181, 257, 269, 277, 281, 293, 313, 317, 337, 349, 353, 373, 521, 541, 557, 569, 577, 593, 601, 613, 617, 641, 653, 661, 673, 677, 701, 709, 733, 757, 761, 1033, 1049, 1061, 1069, 1093, 1097, 1109, 1117, 1129, 1153
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
A000040(12)=37 -> '100101' therefore 37 is a term.
|
|
MATHEMATICA
|
Select[Prime[Range[200]], Take[IntegerDigits[#, 2], 2]=={1, 0}&&Take[ IntegerDigits[#, 2], -2]=={0, 1}&] (* Harvey P. Dale, May 10 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|