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 A050626 #13 Sep 08 2022 08:44:58 %S A050626 1,4,9,11,14,19,22,28,33,41,44,49,55,66,77,82,88,91,94,99,111,114,119, %T A050626 122,128,133,141,144,149,155,166,177,182,188,191,194,199,212,218,221, %U A050626 224,229,236,242,248,263,281,284,289,292,298,313,326,331,334,339,343 %N A050626 Product of digits of n is a nonzero square. %H A050626 Charles R Greathouse IV, <a href="/A050626/b050626.txt">Table of n, a(n) for n = 1..10000</a> %t A050626 Select[Range[500],DigitCount[#,10,0]==0&&IntegerQ[Sqrt[Times@@ IntegerDigits[ #]]]&] (* _Harvey P. Dale_, Jun 09 2020 *) %o A050626 (Magma) [ n: n in [1..350] | s gt 0 and IsSquare(s) where s is &*Intseq(n,10) ]; // _Bruno Berselli_, May 26 2011 %o A050626 (PARI) is(n)=my(v=digits(n),pr=prod(i=1,#v,v[i]));pr&&issquare(pr) \\ _Charles R Greathouse IV_, May 19 2013 %Y A050626 Cf. A007954, A028845, A028839. %K A050626 nonn,base %O A050626 1,2 %A A050626 _Patrick De Geest_, Jun 15 1999