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

A262397 a(n) = floor(A261327(n)/9).

Original entry on oeis.org

0, 0, 0, 1, 0, 3, 1, 5, 1, 9, 2, 13, 4, 19, 5, 25, 7, 32, 9, 40, 11, 49, 13, 59, 16, 69, 18, 81, 21, 93, 25, 107, 28, 121, 32, 136, 36, 152, 40, 169, 44, 187, 49, 205, 53, 225, 58, 245, 64, 267, 69, 289, 75, 312, 81, 336, 87, 361, 93, 387, 100, 413, 106, 441
Offset: 0

Views

Author

Paul Curtz, Sep 21 2015

Keywords

Comments

Hexasections:
0, 1, 4, 9, 16, 25, 36, ... = A000290(n)
0, 5, 19, 40, 69, 107, 152, ... = c(n)
0, 1, 5, 11, 18, 28, 40, ... = d(n+1)
1, 9, 25, 49, 81, 121, 169, ... = A016754(n)
0, 2, 7, 13, 21, 32, 44, ... = A240438(n+1)
3, 13, 32, 59, 93, 136, 187, ... = e(n+1).
The six sequences have the signature (2, -1, 1, -2, 1), that is, the signature of a(n) without the 0's.
It appears that d(n+1) and A240438(n+1) are connected via the following scheme.
Let x(n) be the sequence that concatenates terms of d(n+1) in reverse order with terms of A240438(n+1), both without their index_0 term:
..., 18, 11, 5, 1, 0, 0, 2, 7, 13, 21, 32, ...
And consider the first and second differences of this sequence:
..., -7, -6, -4, -1, 0, 2, 5, 6, 8, 11, 12, ...
..., 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, ...
In the first differences, we get A047234(n+1) and A047267(n+1). And in the second differences, we get A010882(n).
In the same way, c(n) and e(n+1) are connected via the first and second differences of this sequence, with both their index_0 term:
..., 69, 40, 19, 5, 0, 3, 13, 32, 59, ...
that are respectively:
..., -29, -21, -14, -5, 3, 10, 19, 27, 34, ...
..., 8, 7, 9, 8, 7, 9, 8, 7, 9, ... .
Is it possible to find a direct definition for a(n)?

Examples

			a(0) = floor(1/9) = 0, a(1)= floor (5/9) = 0, a(2) = floor(2/9) = 0, a(3)= floor (13/9) = 1.
		

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{0, 3, 0, -3, 0, 1}, {1, 5, 2, 13, 5, 29}, 70]/9 // Floor (* Jean-François Alcover, Sep 26 2015, after Vincenzo Librandi in A261327 *)
  • PARI
    a(n) = numerator((n^2+4)/4)\9; \\ Michel Marcus, Sep 22 2015
    
  • PARI
    concat([0,0,0], Vec(-x^3*(x^4 +x^3 +x^2 +x +1)*(x^12 -x^11 +x^10 -x^8 +2*x^6 -x^4 +x^2 -x +1) / ((x -1)^3*(x +1)^3*(x^2 -x +1)*(x^2 +x +1)*(x^6 -x^3 +1)*(x^6 +x^3 +1)) + O(x^100))) \\ Colin Barker, Sep 25 2015
    
  • PARI
    a(n)=if(n%2,n^2+4,(n/2)^2+1)\9 \\ Charles R Greathouse IV, Oct 16 2015

Formula

a(n) = (A261327(n) - A261327(n) mod 9)/9.
From Colin Barker, Sep 25 2015: (Start)
a(n) = floor((n^2+4)/36) for n even.
a(n) = floor((n^2+4)/9) for n odd.
G.f.: -x^3*(x^4 +x^3 +x^2 +x +1)*(x^12 -x^11 +x^10 -x^8 +2*x^6 -x^4 +x^2 -x +1) / ((x -1)^3*(x +1)^3*(x^2 -x +1)*(x^2 +x +1)*(x^6 -x^3 +1)*(x^6 +x^3 +1)). (End)

Extensions

New name suggested by Michel Marcus, Sep 22 2015

A262523 a(n+3) = a(n) + 6*n + 13, a(0)=0, a(1)=2, a(2)=7.

Original entry on oeis.org

0, 2, 7, 13, 21, 32, 44, 58, 75, 93, 113, 136, 160, 186, 215, 245, 277, 312, 348, 386, 427, 469, 513, 560, 608, 658, 711, 765, 821, 880, 940, 1002, 1067, 1133, 1201, 1272, 1344, 1418, 1495, 1573, 1653, 1736, 1820, 1906, 1995, 2085, 2177, 2272, 2368, 2466
Offset: 0

Views

Author

Paul Curtz, Sep 24 2015

Keywords

Comments

Companion of A240438 extended from right to left:
..., 21, 13, 7, 2, 0, 0, 1, 5, 11, 18, ...
..., -8, -6, -5, -2, 0, 1, 4, 6, 7, 10, ... see A047267 and A047234
..., 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, ... .
The last digit of a(n) is of period 30. Like A240438.
Is there a definition equivalent to the NAME of A240438?

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{2, -1, 1, -2, 1}, {0, 2, 7, 13, 21}, 101] (* Ray Chandler, Sep 24 2015 *)
    RecurrenceTable[{a[n+3] == a[n] + 6 n + 13, a[0]==0, a[1]==2, a[2]==7}, a, {n, 0, 500}] (* G. C. Greubel, Sep 28 2015 *)
    Table[n (n + 1) + Floor[(n + 1)/3], {n, 0, 50}] (* Bruno Berselli, Jun 06 2017 *)
  • PARI
    concat(0, Vec(-x*(x+1)*(x+2)/ ((x-1)^3*(x^2+x+1)) + O(x^100))) \\ Colin Barker, Sep 25 2015
    
  • PARI
    A262523(n)=(2+[9,3]*n=divrem(n,6))*4*n[1]+[0,2,7,13,21,32][n[2]+1] \\ M. F. Hasler, Jun 06 2017

Formula

a(n) = A000290(n+1) - A004523(n+2).
a(n) = A240438(n+1) + A004523(n+1).
a(n) = A240438(n) + A047395(n+1).
a(n+2) - 2*a(n+1) + a(n) = period 3: repeat (3, 1, 2).
a(n+3) = a(n-3) + 4*(2 + 3*n). [Thus, a(n+3m) = a(n-3m) + 4m*(2 + 3n), and a(6m+k) = 4m*(9m + 3k + 2) + a(k): explicit formula for a(n) in terms of a(k), 0 <= k <= 5. - M. F. Hasler, Jun 06 2017]
O.g.f.: -x*(x+1)*(x+2) / ((x-1)^3*(x^2+x+1)). - Colin Barker, Sep 25 2015
E.g.f.: (x/3)*(3*x+7)*exp(x) - (2/(3*sqrt(3)))*exp(-x/2)*sin((sqrt(3)*x)/2). - G. C. Greubel, Sep 28 2015
(a(n+3) - a(n)) mod 2 = 1; (a(n+6) - a(n)) mod 2 = 0. - Altug Alkan, Sep 28 2015
(a(n) mod 2) = (0, 0, 1, 1, 1, 0) repeated. (a(n) mod 3) = (0, 2, 1, 1, 0, 2, 2, 1, 0) repeated. (a(n) mod 4) = (0, 2, 3, 1, 1, 0) repeated. (a(n) mod m) has a period of length 3*m, but for m = 4, 8, 12, ... also of length 3*m/2. - M. F. Hasler, Jun 06 2017
a(n) = n*(n+1) + floor((n+1)/3). - Bruno Berselli, Jun 06 2017

A138340 Expansion of (1-8x)/(1-4x+16x^2).

Original entry on oeis.org

1, -4, -32, -64, 256, 2048, 4096, -16384, -131072, -262144, 1048576, 8388608, 16777216, -67108864, -536870912, -1073741824, 4294967296, 34359738368, 68719476736, -274877906944, -2199023255552, -4398046511104, 17592186044416
Offset: 0

Views

Author

Paul Barry, Mar 15 2008

Keywords

Comments

abs(a(n)) = 2^A047267(n).

Programs

  • Mathematica
    CoefficientList[Series[(1-8x)/(1-4x+16x^2),{x,0,30}],x] (* or *) LinearRecurrence[{4,-16},{1,-4},30] (* Harvey P. Dale, Sep 30 2014 *)

Formula

a(n) = 2*4^n(cos(Pi*(n+1)/3) - sqrt(3)*sin(Pi*(n+1))/3).
a(n) = 4^n*Sum_{k=0..n} A121314(n,k)*(-1)^k*3^(n-k). - Philippe Deléham, Nov 01 2008
a(n) = A128018(n)*2^n. - Philippe Deléham, Nov 14 2008
a(n) = 4*a(n-1) - 16*a(n-2); a(0)=1, a(1)=-4. - Harvey P. Dale, Sep 30 2014
Showing 1-3 of 3 results.