login
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
OFFSET
0,3
MATHEMATICA
Join[{1}, Table[Floor[Mean[{n^n, n!}]+1/2], {n, 20}]] (* Harvey P. Dale, Oct 03 2011 *)
CROSSREFS
Cf. A062874.
Sequence in context: A136727 A291842 A322137 * A120022 A001865 A189001
KEYWORD
easy,nonn
AUTHOR
Olivier Gérard, Jun 26 2001
EXTENSIONS
Corrected by Harvey P. Dale, Oct 03 2011
STATUS
approved