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.

A102214 Expansion of (1 + 4*x + 4*x^2)/((1+x)*(1-x)^3).

Original entry on oeis.org

1, 6, 16, 30, 49, 72, 100, 132, 169, 210, 256, 306, 361, 420, 484, 552, 625, 702, 784, 870, 961, 1056, 1156, 1260, 1369, 1482, 1600, 1722, 1849, 1980, 2116, 2256, 2401, 2550, 2704, 2862, 3025, 3192, 3364, 3540, 3721, 3906, 4096, 4290, 4489, 4692, 4900
Offset: 0

Views

Author

Creighton Dement, Feb 17 2005

Keywords

Comments

A floretion-generated sequence.
a(n) gives the number of triples (x,y,x+y) with positive integers satisfying x < y and x + y <= 3*n. - Marcus Schmidt (marcus-schmidt(AT)gmx.net), Jan 13 2006
Number of different partitions of numbers x + y = z such that {x,y,z} are integers {1,2,3,...,3n} and z > y > x. - Artur Jasinski, Feb 09 2010
Second bisection preceded by zero is A152743. - Bruno Berselli, Oct 25 2011
a(n) has no final digit 3, 7, 8. - Paul Curtz, Mar 04 2020
One odd followed by three evens.
From Paul Curtz, Mar 06 2020: (Start)
b(n) = 0, 1, 6, 16, 30, 49, ... = 0, a(n).
( 25, 12, 4, 0, 1, 6, 16, 30, ...
-13, -8, -4 1, 5, 10, 14, 19, ...
5, 4, 5, 4, 5, 4, 5, 4, ... .)
b(-n) = 0, 4, 12, 25, 42, 64, 90, 121, ... .
A154589(n) are in the main diagonal of b(n) and b(-n). (End)

Links

Crossrefs

Cf. A016778, A038764, A001859, A006578, A069905, A077043, A274221, A330707.
Cf. A000326, A016789, A152743, A001651, A032766, A047237, A047251, A154589.

Programs

  • Magma
    [(6*n*(3*n+4)+(-1)^n+7)/8: n in [0..60]]; // Vincenzo Librandi, Oct 26 2011
  • Mathematica
    aa = {}; Do[i = 0; Do[Do[Do[If[x + y == z, i = i + 1], {x, y + 1, 3 n}], {y, 1, 3 n}], {z, 1, 3 n}]; AppendTo[aa, i], {n, 1, 20}]; aa (* Artur Jasinski, Feb 09 2010 *)
  • PARI
    a(n)=(6*n*(3*n+4)+(-1)^n+7)/8 \\ Charles R Greathouse IV, Apr 16 2020

Formula

G.f.: -(4*x^2 + 4*x + 1)/((x+1)*(x-1)^3) = (1+2*x)^2/((1+x)*(1-x)^3).
a(2n) = A016778(n) = (3n+1)^2.
a(n) + a(n+1) = A038764(n+1).
a(n) = floor( (3*n+2)/2 ) * ceiling( (3*n+2)/2 ). - Marcus Schmidt (marcus-schmidt(AT)gmx.net), Jan 13 2006
a(n) = (6*n*(3*n+4) + (-1)^n+7)/8. - Bruno Berselli, Oct 25 2011
a(n) = A198392(n) + A198392(n-1). - Bruno Berselli, Nov 06 2011
From Paul Curtz, Mar 04 2020: (Start)
a(n) = A006578(n) + A001859(n) + A077043(n+1).
a(n) = A274221(2+2*n).
a(20+n) - a(n) = 30*(32+3*n).
a(1+2*n) = 3*(1+n)*(2+3*n).
a(n) = A047237(n) * A047251(n).
a(n) = A001651(n+1) * A032766(n).(End)
E.g.f.: ((4 + 21*x + 9*x^2)*cosh(x) + 3*(1 + 7*x + 3*x^2)*sinh(x))/4. - Stefano Spezia, Mar 04 2020

Extensions

Definition rewritten by Bruno Berselli, Oct 25 2011

A282513 a(n) = floor((3*n + 2)^2/24 + 1/3).

Original entry on oeis.org

0, 1, 3, 5, 8, 12, 17, 22, 28, 35, 43, 51, 60, 70, 81, 92, 104, 117, 131, 145, 160, 176, 193, 210, 228, 247, 267, 287, 308, 330, 353, 376, 400, 425, 451, 477, 504, 532, 561, 590, 620, 651, 683, 715, 748, 782, 817, 852, 888, 925, 963
Offset: 0

Views

Author

Luce ETIENNE, Feb 17 2017

Keywords

Comments

List of quadruples: 2*n*(3*n+1), (2*n+1)*(3*n+1), 6*n^2+8*n+3, (n+1)*(6*n+5). These terms belong to the sequences A033580, A033570, A126587 and A049452, respectively. See links for all the permutations.
After 0, subsequence of A025767.
It seems that a(n) is the smallest number of cells that need to be painted in a (n+1) X (n+1) grid, such that it has no unpainted hexominoes (see link to Kamenetsky and Pratt). - Rob Pratt, Dmitry Kamenetsky, Aug 30 2020

Examples

			Rectangular array with four columns:
.   0,   1,   3,   5;
.   8,  12,  17,  22;
.  28,  35,  43,  51;
.  60,  70,  81,  92;
. 104, 117, 131, 145, etc.
From _Rob Pratt_, Aug 30 2020: (Start)
For n = 3, painting only 2 cells would leave an unpainted hexomino, but painting the following 3 cells avoids all unpainted hexominoes:
    . . .
    . . X
    X X .
(End)

Links

Crossrefs

Cf. A033436: floor((3*n)^2/24 + 1/3).
Cf. A000326, A000567, A025767, A033570, A033580, A049452, A064412, A126587, A222017, A269064, A274221.
Cf. A130519.
Minimum number of painted cells in other n-ominoes: A337501, A337502, A337503.

Programs

  • Magma
    [(3*n^2+4*n+4) div 8: n in [0..50]]; // Bruno Berselli, Feb 17 2017
  • Mathematica
    Table[Floor[(3 n + 2)^2/24 + 1/3], {n, 0, 50}] (* or *) CoefficientList[Series[x (1 + x + x^3)/((1 + x) (1 + x^2) (1 - x)^3), {x, 0, 50}], x] (* or *) Table[(6 n^2 + 8 n + 3 + Cos[n Pi] - 4 Cos[n Pi/2])/16, {n, 0, 50}] (* or *) Table[(3 n + 2)^2/24 + 1/3 + (-6 + (1 + (-1)^n) (1 + 2 I^((n + 1) (n + 2))))/16, {n, 0, 50}] (* Michael De Vlieger, Feb 17 2017 *)
LinearRecurrence[{2,-1,0,1,-2,1},{0,1,3,5,8,12},60] (* Harvey P. Dale, Aug 10 2024 *)
  • PARI
    a(n)=(3*n^2 + 4*n + 4)\8 \\ Charles R Greathouse IV, Feb 17 2017

Formula

G.f.: x*(1 + x + x^3)/((1 + x)*(1 + x^2)*(1 - x)^3).
a(n) = 2*a(n-1) - a(n-2) + a(n-4) - 2*a(n-5) + a(n-6) for n>5.
a(n) = floor((3*n + 2)^2/24 + 2/3).
a(n) = (6*n^2 + 8*n + 3 + (-1)^n - 2*((-1)^((2*n - 1 + (-1)^n)/4) + (-1)^((2*n + 1 - (-1)^n)/4)))/16. Therefore:
a(2*k) = (6*k^2 + 4*k + 1 - (-1)^k)/4,
a(2*k+1) = (k + 1)*(3*k + 2)/2.
a(n) = (6*n^2 + 8*n + 3 + cos(n*Pi) - 4*cos(n*Pi/2))/16.
a(n) = (3*n + 2)^2/24 + 1/3 + (-6 + (1 + (-1)^n)*(1 + 2*i^((n+1)*(n+2))))/16, where i=sqrt(-1).
a(n) = A130519(n+3)+A130519(n+2)+A130519(n). - R. J. Mathar, Jun 23 2021

Extensions

Corrected and extended by Bruno Berselli, Feb 17 2017
Showing 1-2 of 2 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.