|
| |
|
|
A062873
|
|
Nearest integer to arithmetic mean of n! and n^n.
|
|
0
|
|
|
|
1, 1, 3, 17, 140, 1623, 23688, 414292, 8408768, 193891685, 5001814400, 142675793706, 4458289724928, 151440666806527, 5556047001924608, 218947599027613688, 9223382498249719808, 413620308786882430089, 19673207238835121651712, 989209888652706998977990, 52428801216451004088320000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
Join[{1}, Table[Floor[Mean[{n^n, n!}]+1/2], {n, 20}]] (* Harvey P. Dale, Oct 03 2011 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
easy,nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
Corrected by Harvey P. Dale, Oct 03 2011
|
|
|
STATUS
|
approved
|
| |
|
|
