|
%I #34 Oct 27 2023 22:00:45
%S 1,0,1,-1,2,-2,2,-1,1,-2,4,-4,2,0,1,-3,4,-4,4,-2,0,-2,6,-5,1,0,2,-4,6,
%T -6,4,-2,0,0,5,-7,2,0,4,-6,6,-6,4,0,-2,-2,8,-7,3,-2,2,-4,6,-4,4,-4,0,
%U -2,10,-10,2,2,1,-3,4,-6,4,-2,4,-6,10,-10,2,2,0,-2,4,-6,8,-5,-1,-2,10,-8,0,0,4,-6,10
%N Differences between values of tau(n) (A000005): a(n) = tau(n)-tau(n-1).
%H N. J. A. Sloane, <a href="/A051950/b051950.txt">Table of n, a(n) for n = 2..20000</a> [First 10000 terms from T. D. Noe]
%F G.f.: (1-x)*sum(k >= 1, x^k/(1-x^k)). - _Benoit Cloitre_, Apr 24 2003
%t Differences[DivisorSigma[0, Range[100]]] (* _Alonso del Arte_, Oct 14 2013, based on _T. D. Noe_'s program for A182394 *)
%o (Haskell)
%o a051950 n = a051950_list !! n
%o a051950_list = 1 : zipWith (-) (tail a000005_list) a000005_list
%o -- _Reinhard Zumkeller_, Feb 04 2013
%Y Cf. A000005, A058197, A058198, A058199.
%K sign,easy
%O 2,5
%A _Asher Auel_, Dec 16 1999
%E Edited (and offset corrected) by _N. J. A. Sloane_, Oct 05 2017
|
