OFFSET
1,2
LINKS
Danny Rorabaugh, Table of n, a(n) for n = 1..447
FORMULA
MATHEMATICA
Join[{1}, Table[n^Ceiling[Log[n, n!]], {n, 2, 20}]] (* Harvey P. Dale, Aug 10 2022 *)
PROG
(Sage) [1]+[n^ceil(log(factorial(n))/log(n)) for n in range(2, 20)] # Danny Rorabaugh, Apr 14 2015
(PARI) a(n)=if(n>2, n^(logint(n!, n)+1), n) \\ Charles R Greathouse IV, Oct 11 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Aug 31 2002
EXTENSIONS
More terms from Jason Earls, Sep 02 2002
STATUS
approved