|
|
A069703
|
|
a(n) = n! - n^k where n^(k+1) > n! >= n^k.
|
|
1
|
|
|
0, 0, 3, 8, 95, 504, 2639, 7552, 303831, 2628800, 20429629, 49019904, 5411290079, 66517244416, 731023977375, 3330603843584, 321415531788367, 5245542324301824, 79592116946574941, 794502008176640000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 0}, While[(n! - n^k) >= 0, k++ ]; Return[n! - n^(k - 1)]]; Table[ f[n], {n, 2, 22}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|