OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
n=127: a(n)=16129, divisors={1,127,16129}, 127=sigma[n]-n-1=127 and 16129 is the smallest.
MATHEMATICA
f1[x_] := DivisorSigma[1, x]-x-1; t=Table[0, {128}]; Do[b=f1[n]; If[b<129&&t[[b]]==0, t[[b]]=n], {n, 1, 1000000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 12 2002
STATUS
approved