|
Search: id:A069703
|
|
|
| A069703 |
|
a(n) = n! - n^k where n^(k+1) > n! >= n^k. |
|
+0
1
|
|
| 0, 0, 3, 8, 95, 504, 2639, 7552, 303831, 2628800, 20429629, 49019904, 5411290079, 66517244416, 731023977375, 3330603843584, 321415531788367, 5245542324301824, 79592116946574941, 794502008176640000
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 0}, While[(n! - n^k) >= 0, k++ ]; Return[n! - n^(k - 1)]]; Table[ f[n], {n, 2, 22}]
|
|
CROSSREFS
|
Sequence in context: A070901 A079657 A136309 this_sequence A114737 A099296 A066619
Adjacent sequences: A069700 A069701 A069702 this_sequence A069704 A069705 A069706
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 07 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 08 2002
|
|
|
Search completed in 0.002 seconds
|
