OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
105 is in the sequence because phi(105) = 48 and the digital root of 48 (3) divides 105.
MATHEMATICA
Select[Range[180], Divisible[#, Mod[EulerPhi[#] - 1, 9] + 1] &] (* Amiram Eldar, Feb 06 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 09 2006
EXTENSIONS
Offset corrected by Amiram Eldar, Feb 06 2021
STATUS
approved