cp's OEIS Frontend

A262284 Primes whose binary expansion begins 101.

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