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 A371123 #37 Mar 30 2024 11:36:01
%S A371123 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,29,30,31,34,
%T A371123 37,39,40,41,43,46,49,50,51,59,60,61,64,67,69,70,71,73,76,79,80,81,89,
%U A371123 90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112
%N A371123 Numbers whose decimal representation contains the digital root of the product of their digits.
%C A371123 All numbers with a 0 digit (A011540) are terms, since their product of digits is 0.
%C A371123 All numbers with a 9 digit (A011539) are terms, since their product of digits is a multiple of 9 and so has digital root 9 if no 0 digits, or 0 if any 0 digit.
%e A371123 29 is a term because 2*9=18 and 1+8=9 and 29 contains digit 9.
%t A371123 digRoot[n_] := If[n == 0, 0, Mod[n - 1, 9] + 1]; q[n_] := Module[{d = IntegerDigits[n]}, MemberQ[d, digRoot[Times @@ d]]]; Select[Range[0, 112], q] (* _Amiram Eldar_, Mar 11 2024 *)
%Y A371123 Cf. A007954, A010888, A011539, A011540, A119246.
%K A371123 nonn,base,easy
%O A371123 1,3
%A A371123 _Saish S. Kambali_, Mar 11 2024