OFFSET
1,2
COMMENTS
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..1000
EXAMPLE
198 is a term of the sequence as it is divisible by its digital sum i.e., 18 and by its digital root i.e., 9.
MATHEMATICA
Select[Range[200], Divisible[#, Total[IntegerDigits[#]] && Divisible[#, #-9*Floor[(#-1)/9]]]&] (* Indranil Ghosh, Mar 04 2017 *)
PROG
(PARI) is(n)=my(d=sumdigits(n)); n%d==0 && n%((d-1)%9+1)==0 \\ Charles R Greathouse IV, Dec 26 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Mihir Mathur, Dec 26 2013
STATUS
approved