OFFSET
0,4
LINKS
Jon E. Schoenfield, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[Floor[Log[CatalanNumber[2^n - 1]]/Log[10]] + 1, {n, 0, 27}]
f[n_] := Floor[(LogGamma[2^(n + 1) - 1] - 2*LogGamma[2^n] - n*Log[2])/Log[10]] + 1; Array[f, 34, 0] (* Robert G. Wilson v, Nov 21 2015 *)
PROG
(Magma) [Floor((LogGamma(2^(j+1)-1)-2*LogGamma(2^j)-Log(2^j))/Log(10))+1: j in [0..34]]; // Jon E. Schoenfield, Nov 21 2015
(Magma) [Floor(Log(Catalan(2^n-1))/Log(10)) + 1: n in [0..20]]; // Vincenzo Librandi, Nov 22 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
L. Edson Jeffery, Nov 15 2015
EXTENSIONS
a(28)-a(34) from Jon E. Schoenfield, Nov 21 2015
STATUS
approved