|
|
A234474
|
|
Numbers that are divisible by their digital sum and digital root.
|
|
3
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90, 100, 102, 108, 110, 111, 112, 114, 117, 120, 126, 132, 133, 135, 140, 144, 150, 152, 153, 156, 162, 171, 180, 190, 192, 198, 200, 201, 204
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Though a large number of initial terms match, it is different from A005349. First missing term is A005349(57) = 195.
|
|
LINKS
|
|
|
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
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|