%I #8 Feb 06 2021 04:59:21
%S 1,2,4,6,8,11,12,16,18,21,22,24,27,29,36,42,44,47,50,54,58,63,66,72,
%T 78,80,81,83,84,85,88,90,94,100,101,105,108,116,117,120,125,126,128,
%U 129,132,135,136,137,144,147,156,160,162,166,168,170,171,173,174,176,180
%N Numbers k for which the digital root of phi(k) divides k.
%H Amiram Eldar, <a href="/A117638/b117638.txt">Table of n, a(n) for n = 1..10000</a>
%e 105 is in the sequence because phi(105) = 48 and the digital root of 48 (3) divides 105.
%t Select[Range[180], Divisible[#, Mod[EulerPhi[#] - 1, 9] + 1] &] (* _Amiram Eldar_, Feb 06 2021 *)
%Y Cf. A000010, A010888.
%K nonn,base
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), Apr 09 2006
%E Offset corrected by _Amiram Eldar_, Feb 06 2021