OFFSET
1,2
LINKS
EXAMPLE
72 = 2^3*3^2 is powerful and 27 = 3^3.
MATHEMATICA
Select[Join[{1}, Select[Range[10000000], Min[Transpose[ FactorInteger[#]] [[2]]]>1&]], IntegerQ[Power[FromDigits[Reverse[IntegerDigits[#]]], (3)^-1]]&] (* Harvey P. Dale, Sep 18 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
EXTENSIONS
a(28)-a(34) from Amiram Eldar, Feb 24 2024
STATUS
approved