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 A086097 #14 Dec 03 2021 12:59:35
%S A086097 57,85,141,177,201,393,537,553,633,697,717,745,921,933,1141,1285,1345,
%T A086097 1477,1641,1713,1761,1981,1982,2041,2181,2361,2433,2558,2577,2605,
%U A086097 2761,2941,2977,3062,3117,3241,3273,3326,3397,3578,3721,3777,3901,3902,3957
%N A086097 Numbers n such that n and n+1 are semiprimes with a semiprime number of 1's in their binary representation.
%C A086097 3721 is the first square entry. Conjecture: sequence is infinite.
%H A086097 Amiram Eldar, <a href="/A086097/b086097.txt">Table of n, a(n) for n = 1..10000</a>
%t A086097 binWt[n_] := DigitCount[n, 2, 1]; seqQ[n_] := PrimeOmega[n] == 2 && PrimeOmega[binWt[n]] == 2; Select[Range[4000], seqQ[#] && seqQ[#+1] &] (* _Amiram Eldar_, Dec 14 2019 *)
%t A086097 SequencePosition[Table[If[PrimeOmega[n]==PrimeOmega[DigitCount[n,2,1]]==2,1,0],{n,4000}],{1,1}][[All,1]] (* _Harvey P. Dale_, Dec 03 2021 *)
%o A086097 (PARI) issemi(n)=bigomega(n)==2
%o A086097 is(n)=issemi(hammingweight(n))&&issemi(hammingweight(n+1))&&issemi(n)&&issemi(n+1) \\ _Charles R Greathouse IV_, Mar 28 2013
%Y A086097 Subsequence of A070552 and of A086096.
%Y A086097 Cf. A001358, A000120.
%K A086097 nonn,base
%O A086097 1,1
%A A086097 _Jason Earls_, Jul 09 2003