|
%I #6 Aug 10 2018 09:06:49
%S 0,0,0,1,0,2,0,6,1,4,0,14,0,8,4,23,0,18,0,26,8,12,0,58,4,16,10,46,0,
%T 52,0,72,12,24,16,94,0,24,16,104,0,80,0,70,42,32,0,190,16,64,24,90,0,
%U 106,24,172,24,44,0,248,0,52,66,201,32,136,0,130,32,152,0,342,0,52,80,134,48,164,0,334,63,60,0,364,48,60,44
%N Dirichlet convolution of A284013 (= n - A002487(n)) with itself, where A002487 is Stern's Diatomic sequence.
%H Antti Karttunen, <a href="/A317842/b317842.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} A284013(n/d)*A284013(d).
%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 A317842(n) = sumdiv(n,d,A284013(n/d)*A284013(d));
%Y Cf. A002487, A284013, A317839, A317841, A317843.
%K nonn
%O 1,6
%A _Antti Karttunen_, Aug 09 2018
|
