This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A234474 #16 Jun 22 2022 11:57:03 %S A234474 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, %T A234474 70,72,80,81,84,90,100,102,108,110,111,112,114,117,120,126,132,133, %U A234474 135,140,144,150,152,153,156,162,171,180,190,192,198,200,201,204 %N A234474 Numbers that are divisible by their digital sum and digital root. %C A234474 Though a large number of initial terms match, it is different from A005349. First missing term is A005349(57) = 195. %H A234474 Indranil Ghosh, <a href="/A234474/b234474.txt">Table of n, a(n) for n = 1..1000</a> %e A234474 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. %t A234474 Select[Range[200],Divisible[#,Total[IntegerDigits[#]] && Divisible[#, #-9*Floor[(#-1)/9]]]&] (* _Indranil Ghosh_, Mar 04 2017 *) %o A234474 (PARI) is(n)=my(d=sumdigits(n)); n%d==0 && n%((d-1)%9+1)==0 \\ _Charles R Greathouse IV_, Dec 26 2013 %Y A234474 Intersection of A064807 and A005349. %Y A234474 Cf. A010888, A007953. %K A234474 nonn,base %O A234474 1,2 %A A234474 _Mihir Mathur_, Dec 26 2013