|
%I #6 Jan 16 2014 15:04:40
%S 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,
%T 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,
%U 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,4
%N Partial sums of the characteristic function of A091214.
%C Note that this also works as an inverse function of A091214 in a sense that a(A091214(n)) = n for all n>=1.
%H Antti Karttunen, <a href="/A235044/b235044.txt">Table of n, a(n) for n = 0..4119</a>
%o (Scheme) (definec (A235044 n) (if (zero? n) n (+ (A235044 (- n 1)) (+ (* (A066247 n) (A091225 n))))))
%Y Used to compute A235042. Cf. A066247, A091225, A235043.
%K nonn
%O 0,56
%A _Antti Karttunen_, Jan 02 2014
|
