OFFSET
1,2
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{nn = 10^5, s}, s = Union@ Flatten@ Table[n^e, {e, Prime@ Range@ PrimePi@ Log2@ nn}, {n, nn^(1/e)}]; Select[DivisorSigma[0, s], MemberQ[s, #] &]] (* Michael De Vlieger, Nov 24 2017, after T. D. Noe at A001597 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 08 2009
EXTENSIONS
Extended by Ray Chandler, Dec 10 2009
STATUS
approved