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 A190997 #19 Nov 27 2022 18:57:42
%S A190997 1,2,3,8,5,36,7,64,27,0,1,288,3,56,75,384,7,2592,9,0,42,8,6,18432,50,
%T A190997 72,378,3584,18,0,3,2304,27,168,525,373248,21,432,243,0,4,16128,12,
%U A190997 512,13500,288,28,3538944,252,0,105,2880,15,725760,125,860160,945
%N A190997 Product of digits of all the divisors of n.
%C A190997 Product of digits of concatenation of all divisors of n (A037278).
%H A190997 Nathaniel Johnston, <a href="/A190997/b190997.txt">Table of n, a(n) for n = 1..10000</a>
%F A190997 a(n) = 0 for n = multiples of 10; a(A008592(n)) = 0 for n >=1.
%e A190997 For n = 12: a(12) = 1 * 2 * 3 * 4 * 6 * 1 * 2 = 288.
%p A190997 A190997:=proc(n) local d, i, p: d:=numtheory[divisors](n): p:=1: for i from 1 to nops(d) do p:=p*mul(d, d=convert(d[i], base, 10)): od: return p: end: seq(A190997(n),n=1..57); # _Nathaniel Johnston_, Jun 15 2011
%t A190997 Table[Times@@Flatten[IntegerDigits/@Divisors[n]],{n,100}] (* _Harvey P. Dale_, Nov 27 2022 *)
%o A190997 (PARI) a007954(n) = my(d=digits(n)); prod(i=1, #d, d[i]);
%o A190997 a(n) = my(div=divisors(n), pdt=1); for(k=1, #div, pdt=pdt*a007954(div[k])); pdt \\ _Felix Fröhlich_, Sep 22 2016
%Y A190997 Cf. A134681, A034690.
%K A190997 nonn,easy,base
%O A190997 1,2
%A A190997 _Jaroslav Krizek_, Jun 15 2011