OFFSET
1,2
COMMENTS
Perfect divisor of n is divisor d such that d^k = n for some k >= 1. See A175067 (sum of perfect divisors of n) and A175081 (values taken by the sum of perfect divisors of n (A175067) sorted into ascending order).
Complement of A001597(n+1) for n >= 1 (perfect powers >= 4). a(n) = A007916(n-1) for n >= 2. - Jaroslav Krizek, Jan 30 2010
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
nn = 100; s = Union@ Flatten@ Table[k^m, {m, 2, Log2[nn]}, {k, 2, Surd[nn, m] } ]; Complement[Range[s[[-1]] ], s] (* Michael De Vlieger, Apr 01 2026 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Jan 24 2010
STATUS
approved
