A262284 Primes whose binary expansion begins 101.
5, 11, 23, 41, 43, 47, 83, 89, 163, 167, 173, 179, 181, 191, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 1283, 1289, 1291, 1297, 1301, 1303, 1307, 1319, 1321, 1327, 1361, 1367, 1373, 1381, 1399
Offset: 1
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..20000
Crossrefs
Programs
-
Maple
lis:=[]; q:=5; for i from 1 to 10 do for j from 1 to 2^i-1 do if isprime(q*2^i+j) then lis:=[op(lis),q*2^i+j]; fi; od: od: lis;
-
Mathematica
Select[Flatten[Table[FromDigits[#,2]&/@(Join[{1,0,1},#]&/@Tuples[{0,1},n]),{n,0,10}]],PrimeQ] (* Harvey P. Dale, Oct 17 2021 *)