This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A262285 #11 May 02 2021 17:24:24
%S A262285 7,29,31,59,61,113,127,227,229,233,239,241,251,449,457,461,463,467,
%T A262285 479,487,491,499,503,509,907,911,919,929,937,941,947,953,967,971,977,
%U A262285 983,991,997,1009,1013,1019,1021,1801,1811,1823,1831,1847,1861,1867,1871,1873
%N A262285 Primes whose binary expansion begins 111.
%H A262285 Alois P. Heinz, <a href="/A262285/b262285.txt">Table of n, a(n) for n = 1..20000</a>
%p A262285 lis:=[]; q:=7;
%p A262285 for i from 1 to 10 do for j from 1 to 2^i-1 do
%p A262285 if isprime(q*2^i+j) then lis:=[op(lis),q*2^i+j]; fi; od: od:
%p A262285 lis;
%t A262285 Select[FromDigits[#,2]&/@(Join[{1,1,1},#]&/@Flatten[Table[Tuples[{0,1},n],{n,0,8}],1]),PrimeQ] (* or *) Select[Prime[Range[ 3,350]],Take[ IntegerDigits[ #,2],3]=={1,1,1}&] (* _Harvey P. Dale_, May 02 2021 *)
%Y A262285 Primes whose binary expansion begins with binary expansion of 1, 2, 3, 4, 5, 6, 7: A000040, A080165, A080166, A262286, A262284, A262287, A262285.
%Y A262285 Suggested by A262350.
%Y A262285 Column k=7 of A262365.
%K A262285 nonn,base
%O A262285 1,1
%A A262285 _N. J. A. Sloane_, Sep 19 2015