The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A053246 First differences of chowla(n). 2
 0, 0, 2, -2, 5, -5, 6, -3, 4, -7, 15, -15, 9, -1, 6, -14, 20, -20, 21, -11, 3, -13, 35, -30, 10, -3, 15, -27, 41, -41, 30, -16, 5, -7, 42, -54, 21, -5, 33, -49, 53, -53, 39, -7, -7, -25, 75, -68, 35, -22, 25, -45, 65, -49, 47, -41, 9, -31, 107, -107, 33, 7, 22, -44, 59, -77, 57, -31 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Second differences give A053223, for n>1. If the first term is changed to 1, this is also the first differences of A001065. - N. J. A. Sloane, Jan 17 2023 LINKS G. C. Greubel, Table of n, a(n) for n = 1..10000 FORMULA a(n) = A053222(n) - 1, for n>1 MAPLE with(numtheory): seq( sigma(i+1) - sigma(i) - 1, i=2..100); # for n>1 MATHEMATICA Chowlan[n_] := If[n == 1, 0, DivisorSigma[1, n] - n - 1]; Table[Chowlan[n + 1] - Chowlan[n], {n, 1, 100}] (* G. C. Greubel, Sep 03 2018 *) Differences[Join[{0}, Table[DivisorSigma[1, n]-n-1, {n, 2, 100}]]] (* Harvey P. Dale, Dec 19 2022 *) PROG (Magma) [0] cat [DivisorSigma(1, n+1) - DivisorSigma(1, n) - 1: n in [2..100]]; // G. C. Greubel, Sep 03 2018 (PARI) concat([0], vector(100, n, n++; sigma(n+1) - sigma(n) -1)) \\ G. C. Greubel, Sep 03 2018 CROSSREFS Cf. A048050, A053222, A053223. Cf. also A001065. Sequence in context: A185313 A208301 A069896 * A219651 A168391 A157123 Adjacent sequences: A053243 A053244 A053245 * A053247 A053248 A053249 KEYWORD sign AUTHOR Asher Auel, Jan 10 2000 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 23 09:34 EDT 2024. Contains 373629 sequences. (Running on oeis4.)