%I #14 Jul 14 2021 16:59:27
%S 6,10,14,15,21,35,143,187,209,221,247,253,299,319,323,341,377,391,403,
%T 407,437,451,473,481,493,517,527,533,551,559,583,589,611,629,649,667,
%U 671,689,697,703,713,731,737,767,779,781,793,799,803,817,851,869,871
%N Semiprimes whose prime factors p*q have an equal number of decimal digits and p is not equal to q.
%H Chai Wah Wu, <a href="/A085647/b085647.txt">Table of n, a(n) for n = 1..10369</a>
%t spddQ[n_]:=Module[{fi=FactorInteger[n][[All,1]]},PrimeOmega[n]==2 && fi[[2]]- fi[[1]]>0&&IntegerLength[fi[[1]]]==IntegerLength[fi[[2]]]]; Select[Range[900],spddQ]//Quiet (* _Harvey P. Dale_, Jul 14 2021 *)
%o (Python)
%o from sympy import sieve
%o A085647 = []
%o for n in range(3):
%o ....pr = list(sieve.primerange(10**n,10**(n+1)))
%o ....for i,p in enumerate(pr,start=1):
%o ........for q in pr[i:]:
%o ............A085647.append(p*q)
%o A085647 = sorted(A085647)
%o # _Chai Wah Wu_, Aug 26 2014
%Y Cf. A001358, A078972.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, _Jason Earls_, Jul 11 2003