cp's OEIS Frontend

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

%I A317841 #6 Aug 10 2018 09:06:42
%S A317841 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 A317841 26,16,20,16,20,12,26,18,20,16,30,12,30,20,18,22,38,16,36,20,26,24,40,
%U A317841 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 A317841 Möbius transform of A284013 (= n - A002487(n)), where A002487 is Stern's Diatomic sequence.
%H A317841 Antti Karttunen, <a href="/A317841/b317841.txt">Table of n, a(n) for n = 1..16384</a>
%H A317841 <a href="/index/St#Stern">Index entries for sequences related to Stern's sequences</a>
%F A317841 a(n) = Sum_{d|n} A008683(n/d)*A284013(d).
%F A317841 a(n) = A000010(n) - A317839(n).
%o A317841 (PARI)
%o A317841 A002487(n) = { my(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); (b); }; \\ From A002487
%o A317841 A284013(n) = (n - A002487(n));
%o A317841 A317841(n) = sumdiv(n,d,moebius(n/d)*A284013(d));
%Y A317841 Cf. A002487, A008683, A284013, A317839.
%K A317841 nonn
%O A317841 1,4
%A A317841 _Antti Karttunen_, Aug 09 2018