|
%I #6 Oct 03 2012 16:16:02
%S 34,58,142,214,274,298,382,454,478,562,694,838,922,1042,1138,1198,
%T 1282,1318,1642,1714,2038,2098,2122,2182,2302,2458,2638,2854,2902,
%U 2962,3334,3394,3442,3574,3754,3862,4054,4162,4258,4474,4618,4762,5314,5374,5422
%N Semiprimes with prime sum of decimal digits and prime sum of prime factors.
%C Intersection of A108605 and A108606. All terms are even. Cf. A001358 semiprimes, A101605 3-almost primes, A108605 semiprimes with prime sum of factors, A108606 semiprimes with prime sum of digits.
%H Harvey P. Dale, <a href="/A108610/b108610.txt">Table of n, a(n) for n = 1..1000</a>
%e 34=2*17 (semiprime), with 3+4=7 and 2+17=19 both prime.
%t psddQ[n_]:=!IntegerQ[Sqrt[n]]&&PrimeOmega[n]==2&&PrimeQ[Total[ IntegerDigits[n]]] && PrimeQ[Total[Transpose[FactorInteger[n]][[1]]]]; Select[Range[5500],psddQ] (* _Harvey P. Dale_, Oct 03 2012 *)
%Y Cf. A001358, A101605, A108605, A108606.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 12 2005
|
