A118695 - OEIS

%I #8 Feb 06 2021 08:53:27

%S 4,6,9,10,21,38,39,46,55,57,74,82,91,93,95,111,118,129,133,145,146,

%T 183,185,201,217,218,219,226,235,237,253,254,259,262,289,291,298,309,

%U 326,327,334,361,362,365,381,398,415,417,451,453,469,471,478,489,505,511,514,542,543

%N Semiprimes which are divisible by their digital root.

%H Amiram Eldar, <a href="/A118695/b118695.txt">Table of n, a(n) for n = 1..10000</a>

%e 95 is a semiprime and it is divisible by its digital root 5.

%t Select[Range[550], PrimeOmega[#] == 2 && Divisible[#, Mod[# - 1, 9] + 1] &] (* _Amiram Eldar_, Feb 06 2021 *)

%Y Intersection of A001358 and A064807.

%Y Cf. A010888.

%K base,nonn

%O 1,1

%A Luc Stevens (lms022(AT)yahoo.com), May 20 2006

%E Data corrected by _Amiram Eldar_, Feb 06 2021