|
%I #6 Jan 16 2014 15:04:33
%S 0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,
%T 4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
%U 6,6,6,7,7,7,7,7,7,7,7,8,8,8,8,9,9,9,9,9,9,10
%N Partial sums of the characteristic function of A091209.
%C Note that this also works as an inverse function of A091209 in a sense that a(A091209(n)) = n for all n>=1.
%H Antti Karttunen, <a href="/A235043/b235043.txt">Table of n, a(n) for n = 0..10007</a>
%o (Scheme)
%o (define (A235043 n) (if (zero? n) n (+ (A235043 (- n 1)) (+ (* (A010051 n) (A091247 n))))))
%Y Used to compute A235041. Cf. A010051, A091247, A235044.
%K nonn
%O 0,18
%A _Antti Karttunen_, Jan 02 2014
|
