%I #9 Aug 08 2020 15:17:46
%S 1,4,9,100,121,144,169,400,441,484,675,676,900,961,1000,1089,1800,
%T 4000,9000,9801,10000,10201,10404,10609,12100,12321,12544,12769,14400,
%U 14641,14884,16900,18000,18252,40000,40401,40804,44100,44521,44944
%N Powerful(1) numbers (A001694) whose digit reversal is a square.
%H Harvey P. Dale, <a href="/A115689/b115689.txt">Table of n, a(n) for n = 1..160</a>
%H <a href="/index/Pow#powerful">Index entries for sequences related to powerful numbers</a>
%e 18252=2^2*3^3*13^2 is powerful and 25281=159^2.
%t Join[{1},Select[Range[50000],Min[FactorInteger[#][[All,2]]]>1&& IntegerQ[ Sqrt[ IntegerReverse[#]]]&]] (* _Harvey P. Dale_, Aug 08 2020 *)
%Y Cf. A001694, A115690.
%K nonn,base
%O 1,2
%A _Giovanni Resta_, Jan 31 2006