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-4 of 4 results.

A145924 Last digit of A145923(n).

Original entry on oeis.org

9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3, 9, 3, 5, 5, 3
Offset: 0

Views

Author

Paul Curtz, Oct 25 2008

Keywords

Comments

The numbers also populate the 5th row of A107449.

Crossrefs

Cf. A010879 (last digit), A145923.

Programs

  • Mathematica
    PadRight[{},100,{9,3,5,5,3}] (* Harvey P. Dale, Jul 05 2012 *)
  • PARI
    a(n)=[9,3,5,5,3][n%5+1]; \\ Jinyuan Wang, Mar 23 2020

Formula

a(n) = A145923(n) mod 10.
Period length 5: a(n+5) = a(n).
G.f.: (9+3x+5x^2+5x^3+3x^4)/((1-x)(1+x+x^2+x^3+x^4)). - R. J. Mathar, Dec 08 2008

Extensions

Edited by R. J. Mathar, Dec 08 2008

A225948 a(0) = -1; for n>0, a(n) = numerator(1/4 - 4/n^2).

Original entry on oeis.org

-1, -15, -3, -7, 0, 9, 5, 33, 3, 65, 21, 105, 2, 153, 45, 209, 15, 273, 77, 345, 6, 425, 117, 513, 35, 609, 165, 713, 12, 825, 221, 945, 63, 1073, 285, 1209, 20, 1353, 357, 1505, 99, 1665, 437, 1833, 30, 2009, 525, 2193, 143
Offset: 0

Views

Author

Paul Curtz, May 21 2013

Keywords

Comments

Denominators are in A226008.
Fractions in lowest terms for n>0: -15/4, -3/4, -7/36, 0/1, 9/100, 5/36, 33/196, 3/16, 65/324, 21/100, 105/484, 2/9, 153/676, 45/196, 209/900, 15/64,...
If t(n) is the sequence with period 8: 4, 64, 16, 64, 1, 64, 16, 64, 4, 64, 16, ... (see A226044), then A226008(n) = 4*a(n) + t(n).

Crossrefs

Programs

  • Magma
    [-1] cat [Numerator(1/4-4/n^2): n in [1..50]]; // Bruno Berselli, May 22 2013
    
  • Mathematica
    Join[{-1}, Table[Numerator[1/4 - 4/n^2], {n, 50}]] (* Bruno Berselli, May 24 2013 *)
  • PARI
    concat([-1], vector(100, n, numerator(1/4 - 4/n^2))) \\ G. C. Greubel, Sep 19 2018

Formula

a(n) = 3*a(n-8) -3*a(n-16) +a(n-24).
a(2n) = A061037(n), a(2n+1) = A145923(n-2) for A145923(-2)=-15, A145923(-1)=-7.
a(4n) = A142705(n) for A142705(0)=-1, a(8n) = A000466(n);
a(4n+1) = A028566(4n-3) for A028566(-3)=-15;
a(4n+2) = A078371(n-1) for A078371(-1)=-3;
a(4n+3) = A028566(4n-1) for A028566(-1)=-7.
a(n+4) = A106609(n) * A106609(n+8).
G.f.: -(1 +15*x +3*x^2 +7*x^3 -9*x^5 -5*x^6 -33*x^7 -6*x^8 -110*x^9 -30*x^10 -126*x^11 -2*x^12 -126*x^13 -30*x^14 -110*x^15 -3*x^16 -33*x^17 -5*x^18 -9*x^19 +7*x^21 +3*x^22 +15*x^23)/(1-x^8)^3. - Bruno Berselli, May 22 2013
a(n) = (n^2-16)*(6*cos(Pi*n/4)-54*cos(Pi*n/2)+6*cos(3*Pi*n/4)-219*(-1)^n+293)/512. - Bruno Berselli, May 22 2013
a(n+10) = a(n+2)*(n+14)/(n-2) for n=0,1 and n>2. - Bruno Berselli, May 22 2013

Extensions

Edited by Bruno Berselli, May 22 2013

A277385 Records in A277384.

Original entry on oeis.org

15, 33, 65, 105, 153, 209, 273, 345, 425, 513, 609, 713, 825, 945, 1073, 1209, 1353, 1505, 1665, 1833, 2009, 2193, 2385, 2585, 2793, 3009, 3233, 3465, 3705, 3953, 4209, 4473, 4745, 5025, 5313, 5609, 5913, 6225, 6545, 6873, 7209, 7553, 7905, 8265, 8633, 9009
Offset: 1

Views

Author

Colin Barker, Oct 12 2016

Keywords

Comments

Essentially the same as A145923. - R. J. Mathar, Oct 23 2016

Crossrefs

Cf. A277384.

Programs

  • Mathematica
    Join[{15}, LinearRecurrence[{3, -3, 1}, {33, 65, 105}, 25]] (* or *) Join[{15}, Table[4*n^2 + 12*n - 7, {n,2,25}]] (* G. C. Greubel, Oct 12 2016 *)
  • PARI
    Vec(x*(15-12*x+11*x^2-6*x^3)/(1-x)^3 + O(x^60))

Formula

G.f.: x*(15 -12*x +11*x^2 -6*x^3) / (1-x)^3.
E.g.f.: 7 + 6*x + (4*x^2 + 16*x - 7)*exp(x). - G. C. Greubel, Oct 12 2016
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n>4.
a(n) = 4*n^2 + 12*n - 7 for n>1.

A226379 a(5n) = 2*n*(2*n+1), a(5n+1) = (2*n-3)*(2*n+5), a(5n+2) = (2*n-1)*(2*n+3), a(5n+3) = (2*n+2)*(2*n+1), a(5n+4) = (2*n+1)*(2*n+3).

Original entry on oeis.org

0, -15, -3, 2, 3, 6, -7, 5, 12, 15, 20, 9, 21, 30, 35, 42, 33, 45, 56, 63, 72, 65, 77, 90, 99, 110, 105, 117, 132, 143, 156, 153, 165, 182, 195, 210, 209, 221, 240, 255, 272, 273, 285, 306, 323, 342, 345, 357, 380, 399, 420, 425, 437
Offset: 0

Views

Author

Paul Curtz, Jun 05 2013

Keywords

Comments

The sequence is the fifth row of the following array:
0, 6, 20, 42, 72, 110, 156, 210, 272, ... A002943
0, 3, 6, 15, 20, 35, 42, 63, 72, ... bisections A002943, A000466
0, 2, 3, 6, 12, 15, 20, 30, 35, ... A226023 (trisections A002943, A000466, A002439)
0, -3, 2, 3, 6, 5, 12, 15, 20, ... A214297 (quadrisections A078371)
0, -15, -3, 2, 3, 6, -7, 5, 12, ... a(n)
0, -63, -15, -3, 2, 3, 6, -55, -7, ...
The principle of construction is that (i) the lower left triangular portion has constant values down the diagonals (6, 3, 2, -3, -15, ...), defined from row 4 on by the negated values of A024036. (ii) The extension along the rows is defined by maintaining bisections, trisections, quadrisections etc of the form (2*n+x)*(2*n+y) with some constants x and y. In the fifth line this needs the quintisections shown in the NAME.
Each row in the array has the subsequences of the previous row plus another subsequence of the format (2*n+1)*(2*n+y) shuffled in; the first A002943, the second also A000466, the third also A002439, the fourth also A078371, and the fifth (2*n+3)*(2*n-5).
Only the first three rows are monotonically increasing everywhere.
a(n) is divisible by A226203(n).
Numerators of: 0, -15/4, -3/4, 2/9, 3/16, 6/25, -7/36, 5/36, 12/49, 15/64, 20/81, ... = a(n)/A226096(n). A permutation of A225948(n+1)/A226008(n+1).
Is the sequence increasing monotonically from 221 on?

Crossrefs

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 60); [0] cat Coefficients(R!( -x*(15-12*x-5*x^2-x^3-3*x^4-17*x^5+12*x^6+3*x^7-x^8+x^9)/((1-x^5)^2*(1-x)) )); // G. C. Greubel, Mar 23 2024
    
  • Mathematica
    CoefficientList[Series[x*(15 - 12*x - 5*x^2 - x^3 - 3*x^4 - 17*x^5 + 12*x^6 + 3*x^7 - x^8 + x^9)/((x^4 + x^3 + x^2 + x + 1)^2*(x - 1)^3), {x, 0, 80}], x] (* Wesley Ivan Hurt, Oct 03 2017 *)
  • SageMath
    def A226379_list(prec):
        P. = PowerSeriesRing(ZZ, prec)
        return P( -x*(15-12*x-5*x^2-x^3-3*x^4-17*x^5+12*x^6+3*x^7-x^8+x^9)/((1-x^5)^2*(1-x)) ).list()
    A226379_list(50) # G. C. Greubel, Mar 23 2024

Formula

4*a(n) = A226096(n) - period 5: repeat [1, 64, 16, 1, 4].
G.f.: x*(15-12*x-5*x^2-x^3-3*x^4-17*x^5+12*x^6+3*x^7-x^8+x^9) / ( (x^4+x^3+x^2+x+1)^2 *(x-1)^3 ). - R. J. Mathar, Jun 13 2013
a(n) = a(n-1)+2*a(n-5)-2*a(n-6)-a(n-10)+a(n-11) for n > 10. - Wesley Ivan Hurt, Oct 03 2017
Showing 1-4 of 4 results.