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