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 A108610 #6 Oct 03 2012 16:16:02 %S A108610 34,58,142,214,274,298,382,454,478,562,694,838,922,1042,1138,1198, %T A108610 1282,1318,1642,1714,2038,2098,2122,2182,2302,2458,2638,2854,2902, %U A108610 2962,3334,3394,3442,3574,3754,3862,4054,4162,4258,4474,4618,4762,5314,5374,5422 %N A108610 Semiprimes with prime sum of decimal digits and prime sum of prime factors. %C A108610 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 A108610 Harvey P. Dale, <a href="/A108610/b108610.txt">Table of n, a(n) for n = 1..1000</a> %e A108610 34=2*17 (semiprime), with 3+4=7 and 2+17=19 both prime. %t A108610 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 A108610 Cf. A001358, A101605, A108605, A108606. %K A108610 nonn,base %O A108610 1,1 %A A108610 _Zak Seidov_, Jun 12 2005