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 A242677 #7 May 21 2014 20:07:11 %S A242677 15,33,55,57,65,69,77,87,115,121,129,143,169,205,209,265,299,305,321, %T A242677 339,361,415,417,447,451,481,493,505,517,519,535,551,553,581,611,623, %U A242677 667,687,695,721,737,779,789,799,865,871,893,901,905,923,943,949,955,973 %N A242677 Semiprimes whose binary representation, read in decimal, is also semiprime. %H A242677 K. D. Bajpai, <a href="/A242677/b242677.txt">Table of n, a(n) for n = 1..10000</a> %e A242677 a(2) = 33 = 3 * 11 is semiprime. Binary representation of 33 = 100001 = 11 * 9091 which is also semiprime. %e A242677 a(4) = 57 = 3 * 19 is semiprime. Binary representation of 57 = 111001 = 11 * 10091 which is also semiprime. %p A242677 with(numtheory):A242677 := proc() if bigomega(n)=2 and bigomega(convert(n, binary))=2 then RETURN (n) ; fi; end: seq(A242677(), n=1..2000); %t A242677 c = 0; Do[If [PrimeOmega[n] == 2 && PrimeOmega[FromDigits[IntegerDigits[n, 2]]] == 2, c ++; Print[c, " ", n]], {n, 1, 3*10^5}]; %Y A242677 Cf. A001358, A236365, A236537, A241764. %K A242677 nonn,base %O A242677 1,1 %A A242677 _K. D. Bajpai_, May 20 2014