OFFSET
1,2
MATHEMATICA
Join[{1}, Select[Range[150], GCD@@FactorInteger[DivisorSigma[0, #]][[All, 2]]>1&]] (* Harvey P. Dale, Oct 19 2022 *)
PROG
(PARI) v=[1]; for(n=2, 134, if(ispower(numdiv(n)), v=concat(v, n))); v \\ Nick Hobson, Nov 29 2006
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Aug 06 2006
EXTENSIONS
More terms from Nick Hobson, Nov 29 2006
Incorrect comment removed by Charles R Greathouse IV, Mar 25 2010
STATUS
approved