|
Search: id:A061770
|
|
|
| A061770 |
|
The least exponent m = a(n) > a(n-1) for which k is the first number where k!/(k+1)^m is an integer. |
|
+0
2
|
|
| 0, 1, 2, 5, 7, 8, 9, 10, 11, 14, 17, 19, 21, 28, 35, 44, 58, 88, 95, 103, 110, 178, 179, 185, 208, 222, 287, 313, 334, 358, 371, 419, 479, 502, 558, 629, 670, 718, 838, 1006, 1118, 1259, 1438
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
EXAMPLE
|
a(5) = 35 (one of the few composites in this sequence) because 35 is the least number such that 35!/36^7 and 23!/24^6.
|
|
MATHEMATICA
|
l = 0; Do[k = Max[l - 1, 1]; While[ !IntegerQ[ k! / (k + 1)^n], k++ ]; If[ k > l, l = k; Print[n] ], {n, 0, 1500} ]
|
|
CROSSREFS
|
Sequence in context: A084959 A021799 A154848 this_sequence A080639 A047483 A167408
Adjacent sequences: A061767 A061768 A061769 this_sequence A061771 A061772 A061773
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2001
|
|
|
Search completed in 0.002 seconds
|
