OFFSET
1,2
COMMENTS
a(n) = n-th divisor of A061799(n).
EXAMPLE
The smallest positive integer with at least 11 divisors is 60, which has 12 divisors.
So a(11) = the 11th divisor of 60, which is 30.
MATHEMATICA
f[n_] := Block[{k = 1, d}, While[d = Divisors[k]; Length[d] < n, k++ ]; d[[n]]]; Table[f[n], {n, 60}] (* Ray Chandler, Nov 11 2006 *)
Do[k = 1; While[Length[Divisors[k]] < n, k++ ]; Print[Divisors[k][[n]]], {n, 100}] (* Ryan Propper, Nov 12 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 06 2006
EXTENSIONS
Extended by Ray Chandler, Nov 11 2006
More terms from Ryan Propper, Nov 12 2006
STATUS
approved