%I A066733
%S A066733 1,2,3,7,12,17,21,38,88,106,107,108,109,117,122,128,129,141,146,164,
%T A066733 168,171,173,178,191,196,204,206,207,208,209,212,221,222,236,263,276,
%U A066733 278,288,306,342,359,364,367,372,377,394,432,463,478,479,518,537,538
%N A066733 Numbers such that the nonzero product of the digits of its square is 
               also a square.
%e A066733 17 is in the sequence because the square of 17 is 289 and 2*8*9 = 144 
               = 12^2.
%t A066733 Do[a = Apply[Times, IntegerDigits[n^2]]; If[ a != 0 && IntegerQ[a^(1/
               2)], Print[n]], {n, 1, 10^4} ]
%Y A066733 Cf. A067071.
%Y A066733 Sequence in context: A080140 A019568 A128458 this_sequence A049623 A061577 
               A006488
%Y A066733 Adjacent sequences: A066730 A066731 A066732 this_sequence A066734 A066735 
               A066736
%K A066733 nonn
%O A066733 1,2
%A A066733 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 15 2002