A244317 - OEIS

%I #11 Sep 06 2023 12:55:03

%S 0,1,2,2,2,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,

%T 4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,

%U 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6

%N n occurs A014138(n) times.

%C For n >= 1, a(n) = 1 + the least k such that A014143(k) >= n.

%C Useful when computing A244314.

%F For all n >= 0, a(A014143(n)) = n+1 and a(1+A014143(n)) = n+2.

%t Join[{0},Flatten[Table[#[[2]],#[[1]]]&/@With[{nn=6},Thread[{Join[Accumulate[ CatalanNumber[ Range[ nn]]]],Range[nn]}]]]] (* _Harvey P. Dale_, Sep 06 2023 *)

%o (Scheme) (define (A244317 n) (if (zero? n) n (let loop ((k 0)) (if (>= (A014143 k) n) (+ 1 k) (loop (+ 1 k))))))

%Y Cf. A014138, A014143, A244314, A072643, A081288, A244160.

%K nonn,easy

%O 0,3

%A _Antti Karttunen_, Jul 18 2014