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 A055931 #8 Nov 21 2013 12:47:24
%S A055931 1,2,3,4,5,6,7,8,9,11,22,111,112,121,123,132,211,213,231,312,321,1111,
%T A055931 1113,1124,1131,1142,1214,1241,1311,1412,1421,2114,2141,2411,3111,
%U A055931 4112,4121,4211,11111,11112,11114,11121,11125,11133,11141,11152,11211,11215
%N A055931 Product of the digits of n divides the sum of the digits of n.
%t A055931 Do[If[Mod[Apply[Plus, IntegerDigits[n]], Apply[Times, IntegerDigits[n]]]==0, Print[n]], {n, 1, 100000}]
%t A055931 pdsQ[n_]:=Module[{idn=IntegerDigits[n]},!MemberQ[idn,0] && Divisible[ Total[idn],Times@@idn]]; Select[Range[12000],pdsQ] (* _Harvey P. Dale_, Dec 07 2011 *)
%Y A055931 Cf. A038367.
%K A055931 easy,nonn,base
%O A055931 1,2
%A A055931 _Robert G. Wilson v_, Jul 17 2000