A080167 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
Offset: 1
Examples
A000040(12)=37 -> '100101' therefore 37 is a term.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[200]],Take[IntegerDigits[#,2],2]=={1,0}&&Take[ IntegerDigits[#,2],-2]=={0,1}&] (* Harvey P. Dale, May 10 2015 *)
Comments