|
| |
|
|
A096001
|
|
Least number k such that the number of divisors of k which are < ln(k) equals n.
|
|
0
| |
|
|
1, 3, 8, 24, 60, 180, 420, 1260, 3360, 10080, 22680, 83160, 166320, 720720, 1441440, 3603600, 9369360, 24504480, 73513440, 232792560, 698377680
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Reminiscent of highly composite numbers.
|
|
|
MATHEMATICA
| f[n_] := Length[ Select[ Divisors[ n], # < Log[ n] &]]; g[n_] := g[n] = Block[{k = 2g[n - 1]}, While[f[k] != n, k++ ]; k]; g[0] = 1; Table[ g[n], {n, 20}]
|
|
|
CROSSREFS
| Sequence in context: A081990 A084920 A026556 * A080097 A096886 A176904
Adjacent sequences: A095998 A095999 A096000 * A096002 A096003 A096004
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 19 2004, based on a suggestion from Leroy Quet, Jun 18 2004
|
| |
|
|
