OFFSET
1,1
COMMENTS
Powers of primes are excluded since they are trivial terms: their sum of proper unitary divisors is 1 (except for 1 whose sum of proper unitary divisors is 0) .
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
10 is a term since A034460(10) = 8 = 2^3.
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); us[n_] := usigma[n] - n; Select[Range[10000], PrimeNu[#] > 1 && IntegerQ @ Surd[us [#], 3] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 13 2020
STATUS
approved