login
A317841
Möbius transform of A284013 (= n - A002487(n)), where A002487 is Stern's Diatomic sequence.
7
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, 26, 16, 20, 16, 20, 12, 26, 18, 20, 16, 30, 12, 30, 20, 18, 22, 38, 16, 36, 20, 26, 24, 40, 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
OFFSET
1,4
FORMULA
a(n) = Sum_{d|n} A008683(n/d)*A284013(d).
a(n) = A000010(n) - A317839(n).
PROG
(PARI)
A002487(n) = { my(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); (b); }; \\ From A002487
A284013(n) = (n - A002487(n));
A317841(n) = sumdiv(n, d, moebius(n/d)*A284013(d));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 09 2018
STATUS
approved