|
%I #5 Nov 07 2016 09:10:53
%S 0,1,2,3,4,4,5,6,7,8,8,8,9,9,10,11,12,13,14,14,14,14,14,15,16,16,16,
%T 16,17,17,18,19,20,21,22,22,23,23,23,23,23,23,23,23,23,23,24,25,26,27,
%U 27,27,27,27,27,27,28,28,28,28,29,29,30,31,32,33,34,34,35,35,35,35,36,37,37,37,37,37,37,37,37,38,38,38,38,38,38,39
%N a(n) = number of zeros in A277815[0..n].
%H Antti Karttunen, <a href="/A277814/b277814.txt">Table of n, a(n) for n = 0..16384</a>
%o (Scheme)
%o (define (A277814 n) (if (zero? n) n (+ (A277814 (- n 1)) (A000007 (A277815 n)))))
%o (define (A000007 n) (if (zero? n) 1 0))
%Y Cf. A000007, A277815.
%Y Left inverse of A277817.
%K nonn
%O 0,3
%A _Antti Karttunen_, Nov 06 2016
|
