editing
approved
Harvey P. Dale, <a href="/A080167/b080167.txt">Table of n, a(n) for n = 1..1000</a>
Select[Prime[Range[200]], Take[IntegerDigits[#, 2], 2]=={1, 0}&&Take[ IntegerDigits[#, 2], -2]=={0, 1}&] (* Harvey P. Dale, May 10 2015 *)
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Feb 04 2003
OEIS Server: https://oeis.org/edit/global/246
nonn,base,new
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), Feb 04 2003
Primes beginning with '10' and ending with '01' in binary representation.
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
1,1
Intersection of A002144 and A080165.
A000040(12)=37 -> '100101' therefore 37 is a term.
Cf. A004676, A074832, A030101.
nonn,base
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), Feb 04 2003
