%I #15 Feb 23 2014 15:50:25
%S 0,1,4,9,10,11,14,19,20,22,28,30,33,40,41,44,49,50,55,60,66,70,77,80,
%T 82,88,90,91,94,99,100,101,102,103,104,105,106,107,108,109,110,111,
%U 114,119,120,122,128,130,133,140,141,144,149,150,155,160,166,170,177,180,182,188,190,191,194,199,200
%N Number whose product of digits is a square.
%C Differs from A062371 in that here the digit 0 is included in the product and so every number containing a zero belongs to this sequence. - _D. S. McNeil_, Dec 01 2010
%e 149 is in the sequence because 1*4*9 = 6^2; 20 is in the sequence because 2*0 = 0^2.
%t Select[Range[1000], IntegerQ[Sqrt[Times @@ (IntegerDigits[#])]] &]
%Y Cf. A062371.
%K nonn,base
%O 0,3
%A _Michel Lagneau_, Dec 01 2010