A317841 - OEIS

%I #6 Aug 10 2018 09:06:42

%S 0,1,1,2,2,2,4,4,4,4,6,4,8,6,8,8,12,6,12,8,8,10,16,8,16,12,14,12,22,8,

%T 26,16,20,16,20,12,26,18,20,16,30,12,30,20,18,22,38,16,36,20,26,24,40,

%U 18,36,24,34,28,48,16,52,30,40,32,48,20,56,32,38,24,58,24,58,36,30,36,50,24,66,32,48,40,64,24,50,42

%N Möbius transform of A284013 (= n - A002487(n)), where A002487 is Stern's Diatomic sequence.

%H Antti Karttunen, <a href="/A317841/b317841.txt">Table of n, a(n) for n = 1..16384</a>

%H <a href="/index/St#Stern">Index entries for sequences related to Stern's sequences</a>

%F a(n) = Sum_{d|n} A008683(n/d)*A284013(d).

%F a(n) = A000010(n) - A317839(n).

%o (PARI)

%o A002487(n) = { my(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); (b); }; \\ From A002487

%o A284013(n) = (n - A002487(n));

%o A317841(n) = sumdiv(n,d,moebius(n/d)*A284013(d));

%Y Cf. A002487, A008683, A284013, A317839.

%K nonn

%O 1,4

%A _Antti Karttunen_, Aug 09 2018