A234474 Numbers that are divisible by their digital sum and digital root.

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

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

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

Intersection of A064807 and A005349.

Cf. A010888, A007953.

Sequence in context: A235591 A007603 A005349 * A285829 A225780 A225782

Adjacent sequences: A234471 A234472 A234473 * A234475 A234476 A234477

Keyword

nonn,base

Author

Mihir Mathur, Dec 26 2013

Status

approved