%I #13 Oct 17 2021 14:44:25
%S 5,11,23,41,43,47,83,89,163,167,173,179,181,191,331,337,347,349,353,
%T 359,367,373,379,383,641,643,647,653,659,661,673,677,683,691,701,709,
%U 719,727,733,739,743,751,757,761,1283,1289,1291,1297,1301,1303,1307,1319,1321,1327,1361,1367,1373,1381,1399
%N Primes whose binary expansion begins 101.
%H Alois P. Heinz, <a href="/A262284/b262284.txt">Table of n, a(n) for n = 1..20000</a>
%p lis:=[]; q:=5;
%p for i from 1 to 10 do for j from 1 to 2^i-1 do
%p if isprime(q*2^i+j) then lis:=[op(lis),q*2^i+j]; fi; od: od:
%p lis;
%t Select[Flatten[Table[FromDigits[#,2]&/@(Join[{1,0,1},#]&/@Tuples[{0,1},n]),{n,0,10}]],PrimeQ] (* _Harvey P. Dale_, Oct 17 2021 *)
%Y Primes whose binary expansion begins with binary expansion of 1, 2, 3, 4, 5, 6, 7: A000040, A080165, A080166, A262286, A262284, A262287, A262285.
%Y Suggested by A262350.
%Y Column k=5 of A262365.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Sep 19 2015
|