OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
k = m/n = 1, 1, 2, 3, 4, 5, 10, 12, 15, 24, 35, 42, ... is an integer.
For instance: 60/12=5, 180/18=10, 240/20=12, 360/24=15.
MATHEMATICA
t = Table[0, {2^10}]; Do[ d = DivisorSigma[0, n]; If[ d < 2^10 && t[[d]] == 0, t[[d]] = n], {n, 2882880}]; Rest[ Union[ t[[ Select[ Range[2^10], IntegerQ[ t[[ # ]]/# ] &]] ]]] (* Robert G. Wilson v, Sep 21 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Sep 16 2005
EXTENSIONS
More terms from Robert G. Wilson v, Sep 21 2005
Data corrected by David A. Corneth, Dec 11 2021
STATUS
approved