editing
approved
editing
approved
Join[{1}, Select[Range[150], GCD@@FactorInteger[DivisorSigma[0, #]][[All, 2]]>1&]] (* Harvey P. Dale, Oct 19 2022 *)
approved
editing
proposed
approved
editing
proposed
Natural numbers n with Positive integers whose number of divisors equal to is a perfect power.
(PARI) v=[1]; for(n=2, 134, if(ispower(numdiv(n)), v=concat(v, n))); v (\\ Nick Hobson), Nov 29 2006
More terms from Nick Hobson , Nov 29 2006
approved
editing
_Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), _, Aug 06 2006
Incorrect comment removed by _Charles R Greathouse IV (charles.greathouse(AT)case.edu), _, Mar 25 2010
(PARI) v=[1]; for(n=1, 2, 134, if(ispower(numdiv(n)), v=concat(v, n))); v (Hobson)
easy,nonn,new
Incorrect comment removed by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Mar 25 2010
1, 6, 8, 10, 14, 15, 21, 22, 24, 26, 27, 30, 33, 34, 35, 36, 38, 39, 40, 42, 46, 51, 54, 55, 56, 57, 58, 62, 65, 66, 69, 70, 74, 77, 78, 82, 85, 86, 87, 88, 91, 93, 94, 95, 100, 102, 104, 105, 106, 110, 111, 114, 115, 118, 119, 120, 122, 123, 125, 128, 129, 130, 133, 134
(PARI) v=[1]; for(n=1, 134, if(ispower(numdiv(n)), v=concat(v, n))); v (Hobson)
More terms from Nick Hobson Nov 29 2006
Natural numbers n with number of divisors equal to a perfect power.
1, 6, 8, 10, 14, 15, 21, 22, 24, 26, 27, 30, 33, 34, 35, 36, 38, 39, 40, 42, 46, 51, 54, 55, 56, 57, 58
1,2
easy,nonn
Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Aug 06 2006
approved