|
Search: id:A096001
|
|
|
| A096001 |
|
Least number k such that the number of divisors of k which are < ln(k) equals n. |
|
+0
1
|
|
| 1, 3, 8, 24, 60, 180, 420, 1260, 3360, 10080, 22680, 83160, 166320, 720720, 1441440, 3603600, 9369360, 24504480, 73513440, 232792560, 698377680
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Reminiscent of highly composite numbers.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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 this_sequence A080097 A096886 A056332
Adjacent sequences: A095998 A095999 A096000 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
