Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 May 10 2015 07:43:34
%S 5,17,37,41,73,89,137,149,157,173,181,257,269,277,281,293,313,317,337,
%T 349,353,373,521,541,557,569,577,593,601,613,617,641,653,661,673,677,
%U 701,709,733,757,761,1033,1049,1061,1069,1093,1097,1109,1117,1129,1153
%N Primes beginning with '10' and ending with '01' in binary representation.
%C Intersection of A002144 and A080165.
%H Harvey P. Dale, <a href="/A080167/b080167.txt">Table of n, a(n) for n = 1..1000</a>
%e A000040(12)=37 -> '100101' therefore 37 is a term.
%t Select[Prime[Range[200]],Take[IntegerDigits[#,2],2]=={1,0}&&Take[ IntegerDigits[#,2],-2]=={0,1}&] (* _Harvey P. Dale_, May 10 2015 *)
%Y Cf. A004676, A074832, A030101.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Feb 04 2003