OFFSET
0,3
MATHEMATICA
Join[{1}, Table[Floor[Mean[{n^n, n!}]+1/2], {n, 20}]] (* Harvey P. Dale, Oct 03 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Olivier Gérard, Jun 26 2001
EXTENSIONS
Corrected by Harvey P. Dale, Oct 03 2011
STATUS
approved