A066026 a(n) = ceiling(log(n!)).

0, 1, 2, 4, 5, 7, 9, 11, 13, 16, 18, 20, 23, 26, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 59, 62, 65, 68, 72, 75, 79, 82, 86, 89, 93, 96, 100, 103, 107, 111, 115, 118, 122, 126, 130, 133, 137, 141, 145, 149, 153, 157, 161, 165, 169, 173, 177, 181, 185, 189, 193, 197, 202

Offset

1,3

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Ceiling[Log[Range[70]!]] (* Harvey P. Dale, Jul 23 2012 *)

Prog

(PARI) { for (n=1, 1000, a=ceil(log(n!)); write("b066026.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 07 2009
(PARI) a(n) = ceil(lngamma(n+1)) \\ Michel Marcus, Jun 29 2015

Crossrefs

Cf. A025201, A050502, A034886.

Sequence in context: A047893 A125552 A185546 * A112671 A234369 A056838

Adjacent sequences: A066023 A066024 A066025 * A066027 A066028 A066029

Keyword

nonn

Author

Robert A. Stump (bee_ess107(AT)yahoo.com), Dec 11 2001

Extensions

Terms a(51)-a(63) from Harry J. Smith, Nov 07 2009

Status

approved