%I #9 Dec 13 2014 00:38:36
%S 0,1,1,2,1,3,1,5,2,4,1,8,1,6,3,14,1,13,1,11,4,7,1,23,2,9,9,17,1,18,1,
%T 41,5,10,3,38,1,12,6,32,1,28,1,20,12,15,1,68,2,25,7,26,1,63,4,50,8,16,
%U 1,53,1,19,19,122,5,33,1,29,10,39,1,113,1,21,17,35,3,43,1,95,42,22,1,83,6,24,11,59,1,88,4,44,13,27,7,203
%N a(1) = 0, a(n) = A078898(A003961(n)).
%H Antti Karttunen, <a href="/A249810/b249810.txt">Table of n, a(n) for n = 1..3071</a>
%F a(1) = 0, a(n) = A078898(A003961(n)).
%F a(1) = 0, a(n) = A078898(n) + A249820(n).
%o (Scheme) (define (A249810 n) (if (= 1 n) 0 (A078898 (A003961 n))))
%Y Cf. A003961, A078898, A246277, A249817, A249818, A249820, A249821, A249822, A251721, A251722, A250469, A250470.
%K nonn
%O 1,4
%A _Antti Karttunen_, Dec 08 2014