%I #9 Feb 08 2021 02:59:59
%S 4,6,9,10,21,111,133,201,209,247,407,481,511,629,803,1011,1101,1141,
%T 1387,1417,1651,1679,1853,2119,2159,2353,2771,3031,3077,3097,3383,
%U 3439,3523,3749,3781,4577,4607,5149,5161,5219,5833,6331,6443,7033,7361,7501
%N Semiprimes which are divisible by the sum of their digits.
%H Amiram Eldar, <a href="/A118693/b118693.txt">Table of n, a(n) for n = 1..10000</a>
%e 133 is in the sequence because it is a semiprime and it is divisible by the sum of its digits, 1+3+3 = 7.
%t spQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; Select[Range@7542, spQ@# && IntegerQ[ #/Plus @@ IntegerDigits@# ] &] (* _Robert G. Wilson v_, Jun 10 2006 *)
%Y Intersection of A001358 and A005349.
%Y Cf. A118694.
%K base,nonn
%O 1,1
%A Luc Stevens (lms022(AT)yahoo.com), May 20 2006
%E More terms from _Robert G. Wilson v_, Jun 10 2006
|