cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A053223 Second differences of sigma(n).

Original entry on oeis.org

-1, 2, -4, 7, -10, 11, -9, 7, -11, 22, -30, 24, -10, 7, -20, 34, -40, 41, -32, 14, -16, 48, -65, 40, -13, 18, -42, 68, -82, 71, -46, 21, -12, 49, -96, 75, -26, 38, -82, 102, -106, 92, -46, 0, -18, 100, -143, 103, -57, 47, -70, 110, -114, 96, -88, 50, -40, 138, -214, 140, -26, 15, -66
Offset: 1

Views

Author

Asher Auel, Jan 06 2000

Keywords

Crossrefs

Indices of 0: A099632 - 1.

Programs

  • Magma
    [DivisorSigma(1, n+2) - 2*DivisorSigma(1,n+1) + DivisorSigma(1, n): n in [1..100]]; // G. C. Greubel, Sep 03 2018
  • Mathematica
    Table[DivisorSigma[1,n+2] - 2*DivisorSigma[1,n+1] + DivisorSigma[1,n], {n,1,100}] (* G. C. Greubel, Sep 03 2018 *)
  • PARI
    a(n)=sigma(n+2)-2*sigma(n+1)+sigma(n) \\ Charles R Greathouse IV, Mar 09 2014
    

Formula

G.f.: -1 - 1/x + (1 - x)^2*Sum_{k>=1} k*x^(k-2)/(1 - x^k). - Ilya Gutkovskiy, Jan 29 2017

A053248 Second differences of sigma(n) that are negative.

Original entry on oeis.org

1, 4, 10, 9, 11, 30, 10, 20, 40, 32, 16, 65, 13, 42, 82, 46, 12, 96, 26, 82, 106, 46, 18, 143, 57, 70, 114, 88, 40, 214, 26, 66, 136, 88, 120, 244, 30, 60, 160, 171, 47, 256, 36, 150, 266, 96, 40, 286, 88, 176, 226, 124, 12, 24, 342, 170, 230, 222, 94, 34, 443, 71
Offset: 1

Views

Author

Asher Auel, Jan 11 2000

Keywords

Crossrefs

Programs

  • Maple
    with (numtheory): f := [seq( sigma(i+2) - sigma(i+1) - (sigma(i+1) - sigma(i)), i=1..200)];
    seq(`if`(f[i] < 0,f[i],print( )), i=1..200);
  • Mathematica
    Abs[Select[Differences[DivisorSigma[1,Range[200]],2],Negative]] (* Harvey P. Dale, Aug 13 2015 *)

Formula

a(n) = A053223(A053229(n)).
Showing 1-2 of 2 results.