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.

Previous Showing 11-20 of 124 results. Next

A219529 Coordination sequence for 3.3.4.3.4 Archimedean tiling.

Original entry on oeis.org

1, 5, 11, 16, 21, 27, 32, 37, 43, 48, 53, 59, 64, 69, 75, 80, 85, 91, 96, 101, 107, 112, 117, 123, 128, 133, 139, 144, 149, 155, 160, 165, 171, 176, 181, 187, 192, 197, 203, 208, 213, 219, 224, 229, 235, 240, 245, 251, 256, 261, 267, 272, 277, 283, 288, 293, 299
Offset: 0

Views

Author

Allan C. Wechsler, Nov 21 2012

Keywords

Comments

a(n) is the number of vertices of the 3.3.4.3.4 tiling (which has three triangles and two squares, in the given cyclic order, meeting at each vertex) whose shortest path connecting them to a given origin vertex contains n edges.
This is the dual tiling to the Cairo tiling (cf. A296368). - N. J. A. Sloane, Nov 02 2018
First few terms provided by Allan C. Wechsler; Fred Lunnon and Fred Helenius gave the next few; Fred Lunnon suggested that the recurrence was a(n+3) = a(n) + 16 for n > 1. [This conjecture is true - see the CGS-NJAS link for a proof. - N. J. A. Sloane, Dec 31 2017]
Appears also to be coordination sequence for node of type V2 in "krd" 2-D tiling (or net). This should be easy to prove by the coloring book method (see link). - N. J. A. Sloane, Mar 25 2018
Appears also to be coordination sequence for node of type V1 in "krj" 2-D tiling (or net). This also should be easy to prove by the coloring book method (see link). - N. J. A. Sloane, Mar 26 2018
First differences of A301696. - Klaus Purath, May 23 2020

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 67, 1st row, 2nd tiling, also 2nd row, third tiling.

Crossrefs

List of coordination sequences for uniform planar nets: A008458 (the planar net 3.3.3.3.3.3), A008486 (6^3), A008574 (4.4.4.4 and 3.4.6.4), A008576 (4.8.8), A008579 (3.6.3.6), A008706 (3.3.3.4.4), A072154 (4.6.12), A219529 (3.3.4.3.4), A250120 (3.3.3.3.6), A250122 (3.12.12).
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Haskell
    -- Very slow, could certainly be accelerated.  SST stands for Snub Square Tiling.
    setUnion [] l2 = l2
    setUnion (a:rst) l2 = if (elem a l2) then doRest else (a:doRest)
      where doRest = setUnion rst l2
    setDifference [] l2 = []
    setDifference (a:rst) l2 = if (elem a l2) then doRest else (a:doRest)
      where doRest = setDifference rst l2
    adjust k = (if (even k) then 1 else -1)
    weirdAdjacent (x,y) = (x+(adjust y),y+(adjust x))
    sstAdjacents (x,y) = [(x+1,y),(x-1,y),(x,y+1),(x,y-1),(weirdAdjacent (x,y))]
    sstNeighbors core = foldl setUnion core (map sstAdjacents core)
    sstGlob n core = if (n == 0) then core else (sstGlob (n-1) (sstNeighbors core))
    sstHalo core = setDifference (sstNeighbors core) core
    origin = [(0,0)]
    a219529 n = length (sstHalo (sstGlob (n-1) origin))
    -- Allan C. Wechsler, Nov 30 2012
    
  • Maple
    A219529:= n -> `if`(n=0, 1, (16*n +1 - `mod`(n+1,3))/3);
    seq(A219529(n), n = 0..60); # G. C. Greubel, May 27 2020
  • Mathematica
    Join[{1}, LinearRecurrence[{1,0,1,-1}, {5,11,16,21}, 60]] (* Jean-François Alcover, Dec 13 2018 *)
    Table[If[n==0, 1, (16*n +1 - Mod[n+1, 3])/3], {n, 0, 60}] (* G. C. Greubel, May 27 2020 *)
    CoefficientList[Series[(x+1)^4/((x^2+x+1)(x-1)^2),{x,0,70}],x] (* Harvey P. Dale, Jul 03 2021 *)
  • Sage
    [1]+[(16*n+1 -(n+1)%3)/3 for n in (1..60)] # G. C. Greubel, May 27 2020

Formula

Conjectured to be a(n) = floor((16n+1)/3) for n>0; a(0) = 1; this is a consequence of the suggested recurrence due to Lunnon (see comments). [This conjecture is true - see the CGS-NJAS link in A296368 for a proof. - N. J. A. Sloane, Dec 31 2017]
G.f.: (x+1)^4/((x^2+x+1)*(x-1)^2). - N. J. A. Sloane, Feb 07 2018
From G. C. Greubel, May 27 2020: (Start)
a(n) = (16*n - ChebyshevU(n-1, -1/2))/3 for n>0 with a(0)=1.
a(n) = (A008598(n) - A049347(n-1))/3 for n >0 with a(0)=1. (End)

Extensions

Corrected attributions and epistemological status in Comments; provided slow Haskell code - Allan C. Wechsler, Nov 30 2012
Extended by Joseph Myers, Dec 04 2014

A008576 Coordination sequence for planar net 4.8.8.

Original entry on oeis.org

1, 3, 5, 8, 11, 13, 16, 19, 21, 24, 27, 29, 32, 35, 37, 40, 43, 45, 48, 51, 53, 56, 59, 61, 64, 67, 69, 72, 75, 77, 80, 83, 85, 88, 91, 93, 96, 99, 101, 104, 107, 109, 112, 115, 117, 120, 123, 125, 128, 131, 133
Offset: 0

Views

Author

Keywords

Comments

Also, growth series for the affine Coxeter (or Weyl) groups B_2. - N. J. A. Sloane, Jan 11 2016

References

  • N. Bourbaki, Groupes et Algèbres de Lie, Chap. 4, 5 and 6, Hermann, Paris, 1968. See Chap. VI, Section 4, Problem 10b, page 231, W_a(t).
  • A. V. Shutov, On the number of words of a given length in plane crystallographic groups (Russian), Zap. Nauchn. Sem. S.-Peterburg. Otdel. Mat. Inst. Steklov. (POMI) 302 (2003), Anal. Teor. Chisel i Teor. Funkts. 19, 188--197, 203; translation in J. Math. Sci. (N.Y.) 129 (2005), no. 3, 3922-3926 [MR2023041]. See Table 1.

Crossrefs

List of coordination sequences for uniform planar nets: A008458 (the planar net 3.3.3.3.3.3), A008486 (6^3), A008574 (4.4.4.4 and 3.4.6.4), A008576 (4.8.8), A008579(3.6.3.6), A008706 (3.3.3.4.4), A072154 (4.6.12), A219529(3.3.4.3.4), A250120 (3.3.3.3.6), A250122 (3.12.12).
For partial sums see A008577.
The growth series for the finite Coxeter (or Weyl) groups B_3 through B_12 are A161696-A161699, A161716, A161717, A161733, A161755, A161776, A161858. These are all rows of A128084. The growth series for the affine Coxeter (or Weyl) groups B_2 through B_12 are A008576, A008137, A267167-A267175.

Programs

  • Maple
    if n mod 3 = 0 then 8*n/3 elif n mod 3 = 1 then 8*(n-1)/3+3 else 8*(n-2)/3+5 fi;
  • Mathematica
    cspn[n_]:=Module[{c=Mod[n,3]},Which[c==0,(8n)/3,c==1,(8(n-1))/3+3,True,(8(n-2))/3+5]]; Join[{1},Array[cspn,50]] (* or *) Join[{1}, LinearRecurrence[ {1,0,1,-1},{3,5,8,11},50]] (* Harvey P. Dale, Nov 24 2011 *)
  • PARI
    a(n)=([0,1,0,0; 0,0,1,0; 0,0,0,1; -1,1,0,1]^n*[1;3;5;8])[1,1] \\ Charles R Greathouse IV, Apr 08 2016

Formula

G.f.: ((1+x)^2*(1+x^2))/((1-x)^2*(1+x+x^2)). - Ralf Stephan, Apr 24 2004
a(0)=1, a(1)=3, a(2)=5, a(3)=8, a(4)=11, a(n) = a(n-1) + a(n-3) - a(n-4). - Harvey P. Dale, Nov 24 2011
a(0)=1; thereafter a(3k)=8k, a(3k+1)=8k+3, a(3k+2)=8k+5. - N. J. A. Sloane, Dec 22 2015
The above g.f. and recurrence were originally empirical observations, but I now have a proof (details will be added later). This also justifies the Maple and Mma programs and the b-file. - N. J. A. Sloane, Dec 22 2015
Sum of alternate terms of A042965 (numbers not congruent to 2 mod 4), such that A042965(n) = A042965(n+1) + A042965(n-1). - Gary W. Adamson, Sep 12 2007
a(n) = (2/9)*(12*n + (3/2)*A102283(n)) for n > 0. - Stefano Spezia, Aug 07 2022

A022144 Coordination sequence for root lattice B_2.

Original entry on oeis.org

1, 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 104, 112, 120, 128, 136, 144, 152, 160, 168, 176, 184, 192, 200, 208, 216, 224, 232, 240, 248, 256, 264, 272, 280, 288, 296, 304, 312, 320, 328, 336, 344, 352, 360
Offset: 0

Views

Author

Michael Baake (mbaake(AT)sunelc3.tphys.physik.uni-tuebingen.de)

Keywords

Comments

Equivalently, the coordination sequence for a point of degree 8 in the tiling of the Euclidean plane by right triangles (with angles Pi/2, Pi/4, Pi/4). These triangles are fundamental regions for the Coxeter group (2,4,4). In the notation of Conway et al. 2008 this is the tiling *442. The coordination sequence for a point of degree 4 is given by A234275. - N. J. A. Sloane, Dec 28 2015
Number of points of L_infinity norm n in the simple square lattice Z^2. - N. J. A. Sloane, Apr 15 2008
Apart from initial term(s), dimension of the space of weight 2n cusp forms for Gamma_0( 24 ).
Number of 4 X n binary matrices avoiding simultaneously the right angled numbered polyomino patterns (ranpp) (00;1), (01;0), (11;0) and (01;1). An occurrence of a ranpp (xy;z) in a matrix A=(a(i,j)) is a triple (a(i1,j1), a(i1,j2), a(i2,j1)) where i1Sergey Kitaev, Nov 11 2004
These numbers correspond to the number of primes in the shells of a prime spiral. In a(2) there are 8 primes surrounding 2 in a prime spiral. - Enoch Haga, Apr 06 2000

Examples

			1 + 8*x + 16*x^2 + 24*x^3 + 32*x^4 + 40*x^5 + 48*x^6 + 56*x^7 + ...
		

References

  • J. H. Conway et al., The Symmetries of Things, Peters, 2008, p. 191.

Crossrefs

Apart from initial term, the same as A008590.
Cf. A234275.
For partial sums see A016754.
List of coordination sequences for Laves tilings (or duals of uniform planar nets): [3,3,3,3,3.3] = A008486; [3.3.3.3.6] = A298014, A298015, A298016; [3.3.3.4.4] = A298022, A298024; [3.3.4.3.4] = A008574, A296368; [3.6.3.6] = A298026, A298028; [3.4.6.4] = A298029, A298031, A298033; [3.12.12] = A019557, A298035; [4.4.4.4] = A008574; [4.6.12] = A298036, A298038, A298040; [4.8.8] = A022144, A234275; [6.6.6] = A008458.

Programs

Formula

a(n) = [x^(2*n)] ((1 + x)/(1 - x))^2.
G.f. for coordination sequence of B_n lattice: Sum_{i=0..n} binomial(2*n+1, 2*i)*z^i - 2*n*z*(1+z)^(n-1)/(1-z)^n. [Bacher et al.]
a(n) = (2*n+1)^2 - (2*n-1)^2. Binomial transform of [1, 7, 1, -1, 1, -1, 1, ...]. - Gary W. Adamson, Dec 27 2007
a(n) = 0^n + 8*n. - Vincenzo Librandi, Aug 21 2011
G.f.: 1 + 8*x/(1-x)^2. - R. J. Mathar, Feb 16 2018
Sum_{i=0..n} a(i) = (2*n+1)^2 = A016754(n). - Chunqing Liu, Jan 12 2020
E.g.f.: 1 + 8*x*exp(x). - Stefano Spezia, Apr 05 2021

A296910 a(0)=1, a(1)=4; thereafter a(n) = 4*n-2*(-1)^n.

Original entry on oeis.org

1, 4, 6, 14, 14, 22, 22, 30, 30, 38, 38, 46, 46, 54, 54, 62, 62, 70, 70, 78, 78, 86, 86, 94, 94, 102, 102, 110, 110, 118, 118, 126, 126, 134, 134, 142, 142, 150, 150, 158, 158, 166, 166, 174, 174, 182, 182, 190, 190, 198, 198, 206, 206, 214, 214, 222, 222, 230, 230, 238, 238
Offset: 0

Views

Author

N. J. A. Sloane, Dec 22 2017

Keywords

Comments

Coordination sequence for the bew tiling with respect to a point where two hexagons meet at only a single point. The coordination sequence for the other type of point can be shown to be A008574.
Notes: There is one point on the positive x-axis at edge-distance n from the origin iff n is even; there is one point on the positive y-axis at edge-distance n from the origin iff n>1 is odd; and the number of points inside the first quadrant at distance n from 0 is n if n is odd, and n-1 if n is even.
Then a(n) = 2*(number on positive x-axis + number on positive y-axis) + 4*(number in interior of first quadrant).

Crossrefs

Apart from first two terms, same as A168384.
Cf. A008574. See A296911 for partial sums.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Mathematica
    {1, 4}~Join~Array[4 # - 2 (-1)^# &, 59, 2] (* or *)
    LinearRecurrence[{1, 1, -1}, {1, 4, 6, 14, 14}, 61] (* or *)
    CoefficientList[Series[(1 + 3 x + x^2 + 5 x^3 - 2 x^4)/((1 - x)^2*(1 + x)), {x, 0, 60}], x] (* Michael De Vlieger, Dec 23 2017 *)
  • PARI
    Vec((1 + 3*x + x^2 + 5*x^3 - 2*x^4) / ((1 - x)^2*(1 + x)) + O(x^50)) \\ Colin Barker, Dec 23 2017

Formula

From Colin Barker, Dec 23 2017: (Start)
G.f.: (1 + 3*x + x^2 + 5*x^3 - 2*x^4) / ((1 - x)^2*(1 + x)).
a(n) = a(n-1) + a(n-2) - a(n-3) for n>4.
(End)

A265036 Coordination sequence of 2-uniform tiling {3.4.6.4, 4.6.12} with respect to a point of type 3.4.6.4.

Original entry on oeis.org

1, 4, 6, 7, 10, 14, 20, 24, 24, 23, 26, 34, 42, 44, 40, 37, 42, 54, 64, 64, 56, 51, 58, 74, 86, 84, 72, 65, 74, 94, 108, 104, 88, 79, 90, 114, 130, 124, 104, 93, 106, 134, 152, 144, 120, 107, 122, 154, 174, 164, 136, 121, 138, 174, 196, 184, 152, 135, 154, 194, 218
Offset: 0

Views

Author

N. J. A. Sloane, Dec 12 2015

Keywords

Comments

Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 31 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See page 67, 4th row, 3rd tiling.
  • Otto Krötenheerdt, Die homogenen Mosaike n-ter Ordnung in der euklidischen Ebene, I, II, III, Wiss. Z. Martin-Luther-Univ. Halle-Wittenberg, Math-Natur. Reihe, 18 (1969), 273-290; 19 (1970), 19-38 and 97-122. [Includes classification of 2-uniform tilings]
  • Anton Shutov and Andrey Maleev, Coordination sequences of 2-uniform graphs, Z. Kristallogr., 235 (2020), 157-166.

Crossrefs

See A265035 for the other type of point.
List of coordination sequences for uniform planar nets: A008458 (the planar net 3.3.3.3.3.3), A008486 (6^3), A008574 (4.4.4.4 and 3.4.6.4), A008576 (4.8.8), A008579 (3.6.3.6), A008706(3.3.3.4.4), A072154 (4.6.12), A219529 (3.3.4.3.4), A250120(3.3.3.3.6), A250122 (3.12.12).
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Mathematica
    LinearRecurrence[{4,-8,10,-8,4,-1},{1,4,6,7,10,14,20,24,24,23},100] (* Paolo Xausa, Nov 15 2023 *)

Formula

Based on the b-file, the g.f. appears to be (-2*x^9+6*x^8-8*x^7+7*x^6-2*x^5-2*x^4+5*x^3-2*x^2+1) / (x^6-4*x^5+8*x^4-10*x^3+8*x^2-4*x+1). - N. J. A. Sloane, Dec 14 2015

Extensions

Extended by Joseph Myers, Dec 13 2015
b-file extended by Joseph Myers, Dec 18 2015

A301287 Coordination sequence for node of type 3.12.12 in "cph" 2-D tiling (or net).

Original entry on oeis.org

1, 3, 6, 7, 8, 15, 18, 17, 20, 25, 28, 29, 30, 35, 40, 39, 40, 47, 50, 49, 52, 57, 60, 61, 62, 67, 72, 71, 72, 79, 82, 81, 84, 89, 92, 93, 94, 99, 104, 103, 104, 111, 114, 113, 116, 121, 124, 125, 126, 131, 136, 135, 136, 143, 146, 145, 148, 153, 156, 157, 158
Offset: 0

Views

Author

N. J. A. Sloane, Mar 23 2018

Keywords

Comments

Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 31 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 66, bottom row, first tiling.

Crossrefs

Cf. A301289.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Mathematica
    Join[{1, 3, 6}, LinearRecurrence[{1, -1, 2, -1, 1, -1}, {7, 8, 15, 18, 17, 20}, 100]] (* Jean-François Alcover, Aug 05 2018 *)
  • PARI
    See Links section.

Formula

G.f. = -(2*x^8-2*x^7-x^6-4*x^5-2*x^4-2*x^3-4*x^2-2*x-1) / ((x^2+1)*(x^2+x+1)*(x-1)^2). N. J. A. Sloane, Mar 28 2018 (This is now a theorem. - N. J. A. Sloane, Apr 05 2018)
Equivalent conjecture: 3*a(n) = 8*n+2*A057078(n+1)+3*A228826(n+2). - R. J. Mathar, Mar 31 2018 (This is now a theorem. - N. J. A. Sloane, Apr 05 2018)
Theorem: G.f. = (1+2*x+4*x^2+2*x^3+2*x^4+4*x^5+1*x^6+2*x^7-2*x^8) / ((1-x)*(1+x^2)*(1-x^3)).
Proof. This follows by applying the coloring book method described in the Goodman-Strauss & Sloane article. The trunks and branches structure is shown in the links, and the details of the proof (by calculating the generating function) are on the next two scanned pages. - N. J. A. Sloane, Apr 05 2018

Extensions

More terms from Rémy Sigrist, Mar 27 2018

A301289 Coordination sequence for a tetravalent node of type 3.4.3.12 in "cph" 2-D tiling (or net).

Original entry on oeis.org

1, 4, 5, 6, 12, 14, 15, 18, 21, 26, 28, 26, 31, 38, 37, 38, 44, 46, 47, 50, 53, 58, 60, 58, 63, 70, 69, 70, 76, 78, 79, 82, 85, 90, 92, 90, 95, 102, 101, 102, 108, 110, 111, 114, 117, 122, 124, 122, 127, 134, 133, 134, 140, 142, 143, 146, 149, 154, 156, 154
Offset: 0

Views

Author

N. J. A. Sloane, Mar 23 2018

Keywords

Comments

Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 31 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 66, bottom row, first tiling.

Crossrefs

Cf. A301287.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Mathematica
    Join[{1, 4}, LinearRecurrence[{2, -3, 4, -4, 4, -3, 2, -1}, {5, 6, 12, 14, 15, 18, 21, 26}, 100]] (* Jean-François Alcover, Aug 05 2018 *)
  • PARI
    \\ See Links section.

Formula

Theorem: G.f. = (1+2*x+4*x^3+3*x^4+6*x^6-4*x^7+6*x^8-2*x^9) / ((1-x)^2*(1+x^2)*(1+x^2+x^4)).
The proof uses the coloring book method described in the Goodman-Strauss & Sloane article. The trunks and branches structure is shown in the first scan. (Not yet added.) The trunks are blue, the branches are red, and the twigs are green. There is mirror symmetry about the Y-axis, and quadrants I and II are essentially identical, as are quadrants III and IV. The counts of the various classes of nodes are given in the second scan, and the corresponding generating functions are in the third scan. Adding up the different terms gives the g.f. stated above. - N. J. A. Sloane, Apr 07 2018
E.g.f.: (6*(3 + (4*exp(x) - 3)*x + 3*sin(x)) - 9*cos(sqrt(3)*x/2)*cosh(x/2) + sqrt(3)*sin(sqrt(3)*x/2)*(8*cosh(x/2) - 5*sinh(x/2)))/9. - Stefano Spezia, Jun 08 2024

Extensions

More terms from Rémy Sigrist, Mar 27 2018

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

Original entry on oeis.org

1, 5, 9, 13, 18, 23, 27, 31, 36, 41, 45, 49, 54, 59, 63, 67, 72, 77, 81, 85, 90, 95, 99, 103, 108, 113, 117, 121, 126, 131, 135, 139, 144, 149, 153, 157, 162, 167, 171, 175, 180, 185, 189, 193, 198, 203, 207, 211, 216, 221, 225, 229, 234, 239, 243, 247, 252
Offset: 0

Views

Author

N. J. A. Sloane, Mar 23 2018

Keywords

Comments

Appears to be coordination sequence for node of type 3^3.4^2 in "krm" 2-D tiling (or net).
Also appears to be coordination sequence for pentavalent node in "krk" 2-D tiling (or net).
Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 30 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 67, row 3, first tiling; also p. 66, row 3, first tiling.

Crossrefs

Cf. A301293.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Maple
    f:=proc(n) if n=0 then 1
    elif (n mod 2) = 0 then 9*n/2
    elif (n mod 4) = 1 then 18*(n-1)/4+5
    else 18*(n-3)/4+13; fi; end;
    s1:=[seq(f(n),n=0..60)];
  • Mathematica
    Join[{1}, LinearRecurrence[{2, -2, 2, -1}, {5, 9, 13, 18}, 60]] (* Jean-François Alcover, Jan 08 2019 *)
  • PARI
    Vec((x^4+3*x^3+x^2+3*x+1)/((x^2+1)*(x-1)^2) + O(x^60)) \\ Colin Barker, Mar 23 2018

Formula

For explicit formula for a(n) see Maple code.
a(n) = 2*a(n-1) - 2*a(n-2) + 2*a(n-3) - a(n-4) for n > 4. - Colin Barker, Mar 23 2018
E.g.f.: (2 + 9*x*exp(x) + sin(x))/2. - Stefano Spezia, Jan 31 2023

A301293 Expansion of (x^2+x+1)^2 / ((x^2+1)*(x-1)^2).

Original entry on oeis.org

1, 4, 9, 14, 18, 22, 27, 32, 36, 40, 45, 50, 54, 58, 63, 68, 72, 76, 81, 86, 90, 94, 99, 104, 108, 112, 117, 122, 126, 130, 135, 140, 144, 148, 153, 158, 162, 166, 171, 176, 180, 184, 189, 194, 198, 202, 207, 212, 216, 220, 225, 230, 234, 238, 243, 248, 252
Offset: 0

Views

Author

N. J. A. Sloane, Mar 23 2018

Keywords

Comments

Appears to be coordination sequence for node of type 4^4 in "krm" 2-D tiling (or net).
Also appears to be coordination sequence for tetravalent node in "krk" 2-D tiling (or net).
Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 30 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 67, row 3, first tiling; also p. 66, row 3, first tiling.

Crossrefs

Cf. A301291.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Maple
    f:=proc(n) if n=0 then 1
    elif (n mod 2) = 0 then 9*n/2
    elif (n mod 4) = 1 then 18*(n-1)/4+4
    else 18*(n-3)/4+14; fi; end;
    s1:=[seq(f(n),n=0..60)];
  • Mathematica
    Join[{1}, LinearRecurrence[{2, -2, 2, -1}, {4, 9, 14, 18}, 60]] (* Jean-François Alcover, Jan 08 2019 *)
  • PARI
    Vec((x^2+x+1)^2 / ((x^2+1)*(x-1)^2) + O(x^60)) \\ Colin Barker, Mar 23 2018

Formula

For explicit formula for a(n) see Maple code.
a(n) = 9*n/2 + (1 - (-1)^n)*i^(n*(n + 1))/4 for n>0, a(0)=1 and i=sqrt(-1). Therefore, for even n>0 a(n) = 9*n/2, otherwise a(n) = 9*n/2 - (-1)^((n-1)/2)/2. - Bruno Berselli, Mar 23 2018
a(n) = 2*a(n-1) - 2*a(n-2) + 2*a(n-3) - a(n-4) for n>4. - Colin Barker, Mar 23 2018

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

Original entry on oeis.org

1, 5, 9, 14, 19, 23, 28, 33, 37, 42, 47, 51, 56, 61, 65, 70, 75, 79, 84, 89, 93, 98, 103, 107, 112, 117, 121, 126, 131, 135, 140, 145, 149, 154, 159, 163, 168, 173, 177, 182, 187, 191, 196, 201, 205, 210, 215, 219, 224, 229, 233, 238, 243, 247, 252, 257, 261
Offset: 0

Views

Author

N. J. A. Sloane, Mar 24 2018

Keywords

Comments

Coordination sequence for pentavalent node in the "krl" 2-D tiling (or net). (This is easily established using the "coloring book" method - see the Goodman-Strauss & Sloane link.)
Linear recurrence and g.f. confirmed by Shutov/Maleev link. - Ray Chandler, Aug 31 2023

References

  • Branko Grünbaum and G. C. Shephard, Tilings and Patterns. W. H. Freeman, New York, 1987. See Table 2.2.1, page 66, 3rd row, second tiling.

Crossrefs

Cf. A298024.
Coordination sequences for the 20 2-uniform tilings in the order in which they appear in the Galebach catalog, together with their names in the RCSR database (two sequences per tiling): #1 krt A265035, A265036; #2 cph A301287, A301289; #3 krm A301291, A301293; #4 krl A301298, A298024; #5 krq A301299, A301301; #6 krs A301674, A301676; #7 krr A301670, A301672; #8 krk A301291, A301293; #9 krn A301678, A301680; #10 krg A301682, A301684; #11 bew A008574, A296910; #12 krh A301686, A301688; #13 krf A301690, A301692; #14 krd A301694, A219529; #15 krc A301708, A301710; #16 usm A301712, A301714; #17 krj A219529, A301697; #18 kre A301716, A301718; #19 krb A301720, A301722; #20 kra A301724, A301726.

Programs

  • Magma
    I:=[1,5,9,14,19]; [n le 5 select I[n] else Self(n-1)+Self(n-3)-Self(n-4): n in [1..80]]; // Vincenzo Librandi, Mar 26 2018
    
  • Magma
    [n eq 0 select 1 else 5*n-Floor((n+1)/3): n in [0..60]]; // Bruno Berselli, Mar 26 2018
    
  • Mathematica
    CoefficientList[Series[(x^4 + 4 x^3 + 4 x^2 + 4 x + 1) / ((1 -x) (1 - x^3)), {x, 0, 60}], x] (* Vincenzo Librandi, Mar 26 2018 *)
    LinearRecurrence[{1,0,1,-1},{1,5,9,14,19},60] (* Harvey P. Dale, Dec 30 2024 *)
  • PARI
    lista(nn) = {x='x+O('x^nn); Vec((x^4+4*x^3+4*x^2+4*x+1)/((1-x)*(1-x^3)))} \\ Altug Alkan, Mar 26 2018

Formula

G.f.: (1 + 4*x + 4*x^2 + 4*x^3 + x^4)/((1 - x)*(1 - x^3)).
a(n) = 5*n - floor((n + 1)/3) for n>0, a(0)=1. - Bruno Berselli, Mar 26 2018
Previous Showing 11-20 of 124 results. Next