login
Number whose product of digits is a square.
0

%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