|
%I #15 Apr 15 2018 21:57:48
%S 0,1,1,1,-2,4,-1,2,-3,6,-4,6,-6,2,3,5,-9,11,-6,0,-2,12,-12,11,-9,8,-2,
%T 10,-20,22,-9,-1,-4,8,-3,15,-18,6,-4,20,-28,30,-12,-2,-6,24,-24,21,
%U -22,11,4,16,-32,20,-10,6,-8,30,-34,36,-30,12,1,5,-28,46
%N First differences of A206369.
%C a(A206368(n)) = 0.
%H Reinhard Zumkeller, <a href="/A206475/b206475.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A206369(n+1) - A206369(n).
%t (* b = A206369 *) b[n_] := n*DivisorSum[n, LiouvilleLambda[#]/# &];
%t Array[b, 100] // Differences (* _Jean-François Alcover_, Dec 04 2017 *)
%o (Haskell)
%o a206475 n = a206475_list !! (n-1)
%o a206475_list = zipWith (-) (tail a206369_list) a206369_list
%K sign
%O 1,5
%A _Reinhard Zumkeller_, Feb 08 2012
|
