A252373 - OEIS

%I #9 Dec 18 2014 02:07:12

%S 0,1,2,3,4,5,6,7,8,8,9,10,11,11,12,13,14,15,16,16,17,17,18,19,20,20,

%T 21,21,22,22,23,24,24,24,25,26,27,27,27,27,28,28,29,29,30,30,31,32,33,

%U 33,33,33,34,35,36,36,36,36,37,37,38,38,39,40,41,41,42,42,42,42,43,44,45,45,46,46,47,47,48,48,49,49,50

%N Partial sums of A252372, inverse function for A251726.

%H Antti Karttunen, <a href="/A252373/b252373.txt">Table of n, a(n) for n = 1..10001</a>

%F a(1) = 0, a(n) = A252372(n) + a(n-1).

%F Other identities. For all n >= 1:

%F a(A251726(n)) = n. [This works as an inverse or ranking function for the injection A251726.]

%o (Scheme, with memoization-macro definec)

%o (definec (A252373 n) (if (<= n 1) 0 (+ (A252372 n) (A252373 (- n 1)))))

%Y Cf. A251726, A252372, A252459.

%K nonn

%O 1,3

%A _Antti Karttunen_, Dec 17 2014