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 A218072 #16 Mar 07 2022 07:57:35
%S A218072 1,4,9,6,10,18,36,24,8,1,2,16,54,54,20,60,144,24,18,4,16,128,90,210,
%T A218072 60,252,126,224,32,9,54,8,72,30,20,108,162,64,10,6,48,168,288,162,20,
%U A218072 12,36,24,8,10,12,56,144,108,30,54,216,216,96,18,42,384,1458
%N A218072 Product of the nonzero digits (in base 10) of n^2.
%F A218072 a(n) = A051801(n^2). - _Michel Marcus_, Mar 07 2022
%e A218072 a(32) = 8 because 32*32 = 1024 and 1*2*4 = 8.
%t A218072 Table[Times@@(IntegerDigits[n^2]/.(0->1)),{n,120}] (* _Harvey P. Dale_, Dec 12 2017 *)
%o A218072 (PARI) a(n) = {digs = digits(n^2); prod(i=1, #digs, if (digs[i], digs[i], 1));} \\ _Michel Marcus_, Aug 12 2013
%o A218072 (PARI) a(n) = vecprod(select(x->(x>1), digits(n^2))); \\ _Michel Marcus_, Mar 07 2022
%Y A218072 Similar to A053667, which does not exclude zero digits from the product.
%Y A218072 Related to A218013.
%Y A218072 Cf. A000290, A051801.
%K A218072 nonn,base
%O A218072 1,2
%A A218072 _Nels Olson_, Oct 19 2012