A340793 Sequence whose partial sums give A000203.
1, 2, 1, 3, -1, 6, -4, 7, -2, 5, -6, 16, -14, 10, 0, 7, -13, 21, -19, 22, -10, 4, -12, 36, -29, 11, -2, 16, -26, 42, -40, 31, -15, 6, -6, 43, -53, 22, -4, 34, -48, 54, -52, 40, -6, -6, -24, 76, -67, 36, -21, 26, -44, 66, -48, 48, -40, 10, -30, 108, -106, 34, 8
Offset: 1
Programs
-
Maple
a:= n-> (s-> s(n)-s(n-1))(numtheory[sigma]): seq(a(n), n=1..77); # Alois P. Heinz, Jan 21 2021
-
Mathematica
Join[{1}, Differences @ Table[DivisorSigma[1, n], {n, 1, 100}]] (* Amiram Eldar, Jan 21 2021 *)
-
PARI
a(n) = if (n==1, 1, sigma(n)-sigma(n-1)); \\ Michel Marcus, Jan 22 2021
Formula
a(n) = A053222(n-1) for n>1. - Michel Marcus, Jan 22 2021
Comments