cp's OEIS Frontend

A317842 Dirichlet convolution of A284013 (= n - A002487(n)) with itself, where A002487 is Stern's Diatomic sequence.

%I A317842 #6 Aug 10 2018 09:06:49
%S A317842 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 A317842 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 A317842 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 A317842 Dirichlet convolution of A284013 (= n - A002487(n)) with itself, where A002487 is Stern's Diatomic sequence.
%H A317842 Antti Karttunen, <a href="/A317842/b317842.txt">Table of n, a(n) for n = 1..16384</a>
%H A317842 <a href="/index/St#Stern">Index entries for sequences related to Stern's sequences</a>
%F A317842 a(n) = Sum_{d|n} A284013(n/d)*A284013(d).
%o A317842 (PARI)
%o A317842 A002487(n) = { my(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); (b); }; \\ From A002487
%o A317842 A284013(n) = (n - A002487(n));
%o A317842 A317842(n) = sumdiv(n,d,A284013(n/d)*A284013(d));
%Y A317842 Cf. A002487, A284013, A317839, A317841, A317843.
%K A317842 nonn
%O A317842 1,6
%A A317842 _Antti Karttunen_, Aug 09 2018