Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #7 Jun 24 2014 11:39:39
%S 185,247,253,295,329,355,453,471,533,565,583,671,689,703,755,781,785,
%T 815,841,989,1037,1099,1121,1159,1189,1207,1219,1329,1403,1441,1473,
%U 1541,1555,1643,1661,1703,1751,1793,1797,1819,1821,1853,1921,1941,1957,2123,2189
%N Semiprimes whose binary representation, read in decimal, is prime.
%C Semiprimes in A036952.
%C Intersection of A001358 and A036952.
%H K. D. Bajpai, <a href="/A244248/b244248.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 185 = 5 * 37 which is semiprime. Binary representation of 185 = 10111001 which is prime.
%e a(2) = 247 = 13 * 19 which is semiprime. Binary representation of 247 = 11110111 which is prime.
%p with(numtheory):A244248 := proc() local a; a:=convert(n, binary); if bigomega(n)=2 and isprime(a) then RETURN (n) ; fi; end: seq(A244248 (), n=1..5000);
%t A244248={};Do[If[PrimeOmega[n]==2&&PrimeQ[FromDigits[IntegerDigits[n,2]]], AppendTo[A244248, n]], {n, 5000}]; A244248
%Y Cf. A000040, A001358, A036952, A242677.
%K nonn,base
%O 1,1
%A _K. D. Bajpai_, Jun 23 2014