%I #5 Jan 16 2015 10:19:20
%S 0,2,3,3,4,4,5,3,4,5,6,5,7,6,5,4,8,5,9,6,6,7,10,5,5,8,4,7,11,6,12,4,7,
%T 9,6,6,13,10,8,6,14,7,15,8,6,11,16,6,6,6,9,9,17,5,7,7,10,12,18,7,19,
%U 13,7,5,8,8,20,10,11,7,21,6,22,14,6,11,7,9,23,7,5,15,24,8,9,16,12,8,25,7,8,12,13,17,10,6,26,7,8,7,27,10,28
%N a(1) = 0; for n>1: a(n) = A075167(1+A071178(n)) + (A061395(n) - A061395(A051119(n))) + a(A051119(n)).
%C An auxiliary recurrence for computing A075167.
%H Antti Karttunen, <a href="/A253783/b253783.txt">Table of n, a(n) for n = 1..10000</a>
%F a(1) = 0; for n>1: a(n) = A075167(1+A071178(n)) + (A061395(n) - A061395(A051119(n))) + a(A051119(n)).
%o (Scheme, with memoization-macro definec)
%o (definec (A253783 n) (if (= 1 n) 0 (+ (A075167 (+ 1 (A071178 n))) (- (A061395 n) (A061395 (A051119 n))) (A253783 (A051119 n)))))
%Y Cf. A051119, A061395, A075167, A071178.
%Y Cf. also A106490.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jan 16 2015