A244230 a(n) is the least k such that A197433(k) >= n.
0, 1, 2, 3, 4, 4, 5, 6, 7, 8, 8, 8, 8, 8, 8, 9, 10, 11, 12, 12, 13, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 19, 20, 20, 21, 22, 23, 24, 24, 24, 24, 24, 24, 25, 26, 27, 28, 28, 29, 30, 31, 32, 32, 32, 32
Offset: 0
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 0..6918
Programs
-
Mathematica
nmax = 68; A197433[n_] := If[n == 0, 0, SeriesCoefficient[(1/(1-x))*Sum[ CatalanNumber[k+1]*x^(2^k)/(1+x^(2^k)), {k, 0, Log[2, n] // Ceiling}], {x, 0, n}]]; a[n_] := For[k = 0, True, k++, If[A197433[k] >= n, Return[k]]]; Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, Nov 18 2021, after Ilya Gutkovskiy in A197433 *)
Comments