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 A051004 #29 Feb 16 2025 08:32:41
%S A051004 1,2,3,4,5,6,7,8,9,12,24,36,48,111,112,126,132,135,144,162,216,222,
%T A051004 224,264,288,312,315,324,333,336,396,432,444,448,555,612,624,648,666,
%U A051004 735,777,864,888,936,999,1116,1122,1128,1164,1212,1224,1236,1296,1332
%N A051004 Numbers divisible both by their individual digits and by the sum of their digits.
%C A051004 No zero digits permitted. [_Harvey P. Dale_, Dec 18 2011]
%H A051004 Reinhard Zumkeller, <a href="/A051004/b051004.txt">Table of n, a(n) for n = 1..10000</a>
%H A051004 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Digit.html">Digit</a>
%t A051004 ddQ[n_]:=Module[{idn=IntegerDigits[n]},!MemberQ[idn,0] && Divisible[ n,Total[idn]]&& And @@ Divisible[n,idn]]; Select[Range[1400],ddQ] (* _Harvey P. Dale_, Dec 18 2011 *)
%o A051004 (Haskell)
%o A051004 a051004 n = a051004_list !! (n-1)
%o A051004 a051004_list = [x | x <- a005349_list,
%o A051004 x == head (dropWhile (< x) a034838_list)]
%o A051004 -- _Reinhard Zumkeller_, Mar 03 2012
%Y A051004 Intersection of A005349 and A034838.
%Y A051004 Cf. A038369, A087142.
%K A051004 nonn,nice,base
%O A051004 1,2
%A A051004 _Eric W. Weisstein_
%E A051004 Offset corrected by _Reinhard Zumkeller_, Mar 03 2012