OFFSET
1,2
COMMENTS
Note that 2^(n-1) has n divisors. - David Wasserman, Sep 09 2002
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..285
MATHEMATICA
a = Table[ 0, {1024} ]; Do[ b = DivisorSigma[ 0, n]; If[ b < 1025 && a[[b]] == 0, a[[b]] = n], {n, 1, 10^8/2} ]; a[[ Select[ Range[2, 1024], !PrimeQ[ # ] && Mod[ #, # - EulerPhi[ # ]] == 0 & ] ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 15 2001
EXTENSIONS
More terms from David Wasserman, Sep 09 2002
STATUS
approved