%I #7 Jul 28 2021 11:14:35
%S 3,7,31,59,103,107,127,199,211,223,227,239,251,419,431,439,443,463,
%T 467,479,487,491,499,503,787,811,823,827,839,859,863,883,887,907,911,
%U 919,947,967,971,983,991,1019,1543,1559,1567,1571,1579,1583,1607,1619,1627
%N Primes beginning and ending with '11' in binary representation.
%C Intersection of A002145 and A080166.
%H Harvey P. Dale, <a href="/A080168/b080168.txt">Table of n, a(n) for n = 1..1000</a>
%e A000040(17)=59 -> '111011' therefore 59 is a term.
%t Select[Prime[Range[300]],Take[IntegerDigits[#,2],2]==Take[ IntegerDigits[ #,2],-2]=={1,1}&] (* _Harvey P. Dale_, Jul 28 2021 *)
%Y Cf. A004676, A074832, A030101.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Feb 04 2003
|