OFFSET
1,2
LINKS
EXAMPLE
18252=2^2*3^3*13^2 is powerful and 25281=159^2.
MATHEMATICA
Join[{1}, Select[Range[50000], Min[FactorInteger[#][[All, 2]]]>1&& IntegerQ[ Sqrt[ IntegerReverse[#]]]&]] (* Harvey P. Dale, Aug 08 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved