|
%I #11 Sep 21 2015 20:00:04
%S 17,19,37,67,71,73,79,131,137,139,149,151,157,257,263,269,271,277,281,
%T 283,293,307,311,313,317,521,523,541,547,557,563,569,571,577,587,593,
%U 599,601,607,613,617,619,631,1031,1033,1039,1049,1051,1061,1063,1069,1087,1091,1093
%N Primes whose binary expansion begins 100.
%H Alois P. Heinz, <a href="/A262286/b262286.txt">Table of n, a(n) for n = 1..20000</a>
%p lis:=[]; q:=4;
%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;
%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=4 of A262365.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Sep 19 2015
|
