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 112 results. Next

A005917 Rhombic dodecahedral numbers: a(n) = n^4 - (n - 1)^4.

Original entry on oeis.org

1, 15, 65, 175, 369, 671, 1105, 1695, 2465, 3439, 4641, 6095, 7825, 9855, 12209, 14911, 17985, 21455, 25345, 29679, 34481, 39775, 45585, 51935, 58849, 66351, 74465, 83215, 92625, 102719, 113521, 125055, 137345, 150415, 164289, 178991
Offset: 1

Views

Author

Keywords

Comments

Final digits of a(n), i.e., a(n) mod 10, are repeated periodically with period of length 5 {1,5,5,5,9}. There is a symmetry in this list since the sum of two numbers equally distant from the ends is equal to 10 = 1 + 9 = 5 + 5 = 2*5. Last two digits of a(n), i.e., a(n) mod 100, are repeated periodically with period of length 50. - Alexander Adamchuk, Aug 11 2006
a(n) = VarScheme(n,2) in the scheme displayed in A128195. - Peter Luschny, Feb 26 2007
If Y is a 3-subset of a 2n-set X then, for n >= 2, a(n-2) is the number of 4-subsets of X intersecting Y. - Milan Janjic, Nov 18 2007
The numbers are the constant number found in magic squares of order n, where n is an odd number, see the comment in A006003. A Magic Square of side 1 is 1; 3 is 15; 5 is 65 and so on. - David Quentin Dauthier, Nov 07 2008
Two times the area of the triangle with vertices at (0,0), ((n - 1)^2, n^2), and (n^2, (n - 1)^2). - J. M. Bergot, Jun 25 2013
Bisection of A006003. - Omar E. Pol, Sep 01 2018
Construct an array M with M(0,n) = 2*n^2 + 4*n + 1 = A056220(n+1), M(n,0) = 2*n^2 + 1 = A058331(n) and M(n,n) = 2*n*(n+1) + 1 = A001844(n). Row(n) begins with all the increasing odd numbers from A058331(n) to A001844(n) and column(n) begins with all the decreasing odd numbers from A056220(n+1) to A001844(n). The sum of the terms in row(n) plus those in column(n) minus M(n,n) equals a(n+1). The first five rows of array M are [1, 7, 17, 31, 49, ...]; [3, 5, 15, 29, 47, ...]; [9, 11, 13, 27, 45, ...]; [19, 21, 23, 25, 43, ...]; [33, 35, 37, 39, 41, ...]. - J. M. Bergot, Jul 16 2013 [This contribution was moved here from A047926 by Petros Hadjicostas, Mar 08 2021.]
For n>=2, these are the primitive sides s of squares of type 2 described in A344332. - Bernard Schott, Jun 04 2021
(a(n) + 1) / 2 = A212133(n) is the number of cells in the n-th rhombic-dodecahedral polycube. - George Sicherman, Jan 21 2024

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, p. 53.
  • E. Deza and M. M. Deza, Figurate Numbers, World Scientific Publishing, 2012, pp. 123-124.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

(1/12)*t*(2*n^3 - 3*n^2 + n) + 2*n - 1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A063493, A063494, A063495, A063496.
Column k=3 of A047969.

Programs

  • Haskell
    a005917 n = a005917_list !! (n-1)
    a005917_list = map sum $ f 1 [1, 3 ..] where
       f x ws = us : f (x + 2) vs where (us, vs) = splitAt x ws
    -- Reinhard Zumkeller, Nov 13 2014
    
  • Magma
    [n^4 - (n-1)^4: n in [1..50]]; // Vincenzo Librandi, Aug 01 2011
    
  • Mathematica
    Table[n^4-(n-1)^4,{n,40}]  (* Harvey P. Dale, Apr 01 2011 *)
    #[[2]]-#[[1]]&/@Partition[Range[0,40]^4,2,1] (* More efficient than the above Mathematica program because it only has to calculate each 4th power once *) (* Harvey P. Dale, Feb 07 2015 *)
    Differences[Range[0,40]^4] (* Harvey P. Dale, Aug 11 2023 *)
  • PARI
    a(n)=n^4-(n-1)^4 \\ Charles R Greathouse IV, Jul 31 2011
    
  • Python
    A005917_list, m = [], [24, -12, 2, 1]
    for _ in range(10**2):
        A005917_list.append(m[-1])
        for i in range(3):
            m[i+1] += m[i] # Chai Wah Wu, Dec 15 2015

Formula

a(n) = (2*n - 1)*(2*n^2 - 2*n + 1).
Sum_{i=1..n} a(i) = n^4 = A000583(n). First differences of A000583.
G.f.: x*(1+x)*(1+10*x+x^2)/(1-x)^4. - Simon Plouffe in his 1992 dissertation
More generally, g.f. for n^m - (n - 1)^m is Euler(m, x)/(1 - x)^m, where Euler(m, x) is Eulerian polynomial of degree m (cf. A008292). E.g.f.: x*(exp(y/(1 - x)) - exp(x*y/(1 - x)))/(exp(x*y/(1 - x))-x*exp(y/(1 - x))). - Vladeta Jovovic, May 08 2002
a(n) = sum of the next (2*n - 1) odd numbers; i.e., group the odd numbers so that the n-th group contains (2*n - 1) elements like this: (1), (3, 5, 7), (9, 11, 13, 15, 17), (19, 21, 23, 25, 27, 29, 31), ... E.g., a(3) = 65 because 9 + 11 + 13 + 15 + 17 = 65. - Xavier Acloque, Oct 11 2003
a(n) = 2*n - 1 + 12*Sum_{i = 1..n} (i - 1)^2. - Xavier Acloque, Oct 16 2003
a(n) = (4*binomial(n,2) + 1)*sqrt(8*binomial(n,2) + 1). - Paul Barry, Mar 14 2004
Binomial transform of [1, 14, 36, 24, 0, 0, 0, ...], if the offset is 0. - Gary W. Adamson, Dec 20 2007
Sum_{i=1..n-1}(a(i) + a(i+1)) = 8*Sum_{i=1..n}(i^3 + i) = 16*A002817(n-1) for n > 1. - Bruno Berselli, Mar 04 2011
a(n+1) = a(n) + 2*(6*n^2 + 1) = a(n) + A005914(n). - Vincenzo Librandi, Mar 16 2011
a(n) = -a(-n+1). a(n) = (1/6)*(A181475(n) - A181475(n-2)). - Bruno Berselli, Sep 26 2011
a(n) = A045975(2*n-1,n) = A204558(2*n-1)/(2*n - 1). - Reinhard Zumkeller, Jan 18 2012
a(n+1) = Sum_{k=0..2*n+1} (A176850(n,k) - A176850(n-1,k))*(2*k + 1), n >= 1. - L. Edson Jeffery, Nov 02 2012
a(n) = A005408(n-1) * A001844(n-1) = (2*(n - 1) + 1) * (2*(n - 1)*n + 1) = A000290(n-1)*12 + 2 + a(n-1). - Bruce J. Nicholson, May 17 2017
a(n) = A007588(n) + A007588(n-1) = A000292(2n-1) + A000292(2n-2) + A000292(2n-3) = A002817(2n-1) - A002817(2n-2). - Bruce J. Nicholson, Oct 22 2017
a(n) = A005898(n-1) + 6*A000330(n-1) (cf. Deza, Deza, 2012, p. 123, Section 2.6.2). - Felix Fröhlich, Oct 01 2018
a(n) = A300758(n-1) + A005408(n-1). - Bruce J. Nicholson, Apr 23 2020
G.f.: polylog(-4, x)*(1-x)/x. See the Simon Plouffe formula above (with expanded numerator), and the g.f. of the rows of A008292 by Vladeta Jovovic, Sep 02 2002. - Wolfdieter Lang, May 10 2021

A007202 Crystal ball sequence for hexagonal close-packing.

Original entry on oeis.org

1, 13, 57, 153, 323, 587, 967, 1483, 2157, 3009, 4061, 5333, 6847, 8623, 10683, 13047, 15737, 18773, 22177, 25969, 30171, 34803, 39887, 45443, 51493, 58057, 65157, 72813, 81047, 89879, 99331, 109423, 120177, 131613, 143753, 156617
Offset: 0

Views

Author

Keywords

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Partial sums of A007899.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • Mathematica
    Table[Floor[(7((n+1)^4-n^4)+4)/8],{n,0,40}] (* or *) LinearRecurrence[ {3,-2,-2,3,-1},{1,13,57,153,323},40] (* Harvey P. Dale, Jul 15 2011 *)
  • PARI
    j=[]; for(n=0,75,j=concat(j,round((7/8)*((n+1)^4-n^4)))); j
    
  • Python
    def a(n): return round((7/8)*((n+1)**4-n**4))
    print([a(n) for n in range(36)]) # Michael S. Branicky, Jan 13 2021

Formula

Nearest integer to (7/8)*( (n+1)^4 - n^4 ).
G.f.: (x^4+10*x^3+20*x^2+10*x+1)/(x-1)^4/(x+1).
a(n) = 7*(2*n+1)*(2*n^2+2*n+1)/8 +(-1)^n/8. - R. J. Mathar, Mar 24 2011
a(0)=1, a(1)=13, a(2)=57, a(3)=153, a(4)=323, a(n)=3*a(n-1)- 2*a(n-2)- 2*a(n-3)+3*a(n-4)-a(n-5). - Harvey P. Dale, Jul 15 2011
E.g.f.: ((4 + 49*x + 63*x^2 + 14*x^3)*cosh(x) + (3 + 49*x + 63*x^2+ 14*x^3)*sinh(x))/4. - Stefano Spezia, Mar 14 2024

Extensions

More terms from Jason Earls, Jul 14 2001

A007899 Coordination sequence for hexagonal close-packing.

Original entry on oeis.org

1, 12, 44, 96, 170, 264, 380, 516, 674, 852, 1052, 1272, 1514, 1776, 2060, 2364, 2690, 3036, 3404, 3792, 4202, 4632, 5084, 5556, 6050, 6564, 7100, 7656, 8234, 8832, 9452, 10092, 10754, 11436, 12140, 12864, 13610, 14376, 15164, 15972, 16802, 17652, 18524, 19416, 20330, 21264, 22220
Offset: 0

Views

Author

Keywords

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #2.

Crossrefs

For partial sums see A007202.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • Magma
    I:=[1,12,44,96,170]; [n le 5 select I[n] else 2*Self(n-1)-2*Self(n-3)+Self(n-4): n in [1..50]]; // Vincenzo Librandi, Feb 16 2014
    
  • Magma
    [1] cat [2 + Floor(21*n^2/2): n in [1..50]]; // G. C. Greubel, Feb 20 2018
  • Mathematica
    Join[{1},Floor[(21Range[40]^2)/2]+2] (* or *) Join[{1},LinearRecurrence[ {2,0,-2,1},{12,44,96,170},40]] (* Harvey P. Dale, Feb 15 2014 *)
    CoefficientList[Series[(x^4 + 10 x^3 + 20 x^2 + 10 x + 1)/(1 - x)^3/(x + 1), {x, 0, 50}], x] (* Vincenzo Librandi, Feb 16 2014 *)
  • PARI
    for(n=0,50, print1(if(n==0,1, 2 + floor(21*n^2/2)), ", ")) \\ G. C. Greubel, Feb 20 2018
    

Formula

a(n) = floor( 21*n^2 / 2 ) + 2, for n>= 1.
G.f.: (x^4 +10*x^3 +20*x^2 +10*x +1)/((1+x)*(1-x)^3).
a(0)=1, a(1)=12, a(2)=44, a(3)=96, a(4)=170, a(n)=2*a(n-1)-2*a(n-3)+ a(n-4). - Harvey P. Dale, Feb 15 2014
a(n) = (21/2)*n^2 + 7/4 + (1/4)*(-1)^n - 0^n. - Eric Simon Jacob, Feb 12 2023
E.g.f.: ((4 + 21*x + 21*x^2)*cosh(x) + 3*(1 + 7*x + 7*x^2)*sinh(x) - 2)/2. - Stefano Spezia, Mar 14 2024

A010001 a(0) = 1, a(n) = 5*n^2 + 2 for n>0.

Original entry on oeis.org

1, 7, 22, 47, 82, 127, 182, 247, 322, 407, 502, 607, 722, 847, 982, 1127, 1282, 1447, 1622, 1807, 2002, 2207, 2422, 2647, 2882, 3127, 3382, 3647, 3922, 4207, 4502, 4807, 5122, 5447, 5782, 6127, 6482, 6847, 7222, 7607, 8002, 8407, 8822, 9247, 9682, 10127, 10582
Offset: 0

Views

Author

Keywords

Comments

Coordination sequence for 3D uniform tiling formed by stacking parallel layers of the 3^3.4^2 2D tiling (cf. A008706). - N. J. A. Sloane, Feb 07 2018

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #13.

Crossrefs

See A063489 for partial sums.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

Formula

G.f.: (1+x)*(1+3*x+x^2)/(1-x)^3. - Bruno Berselli, Feb 06 2012
E.g.f.: (x*(x+1)*5+2)*e^x-1. - Gopinath A. R., Feb 14 2012
Sum_{n>=0} 1/a(n) = 3/4+sqrt(10)/20*Pi*coth( Pi/5 *sqrt 10) = 1.2657655... - R. J. Mathar, May 07 2024

Extensions

More terms from Bruno Berselli, Feb 06 2012

A037270 a(n) = n^2*(n^2 + 1)/2.

Original entry on oeis.org

0, 1, 10, 45, 136, 325, 666, 1225, 2080, 3321, 5050, 7381, 10440, 14365, 19306, 25425, 32896, 41905, 52650, 65341, 80200, 97461, 117370, 140185, 166176, 195625, 228826, 266085, 307720, 354061, 405450, 462241, 524800, 593505, 668746, 750925, 840456, 937765
Offset: 0

Views

Author

Aaron Gulliver (gulliver(AT)elec.canterbury.ac.nz)

Keywords

Comments

Sum of first n^2 positive integers.
Start from xanthene and attach amino acids according to the reaction scheme that describes the reaction between the active sites. See the hyperlink below on chemistry. - Robert G. Wilson v, Aug 02 2002; Amarnath Murthy, Aug 01 2002
Sum of the next n multiples of n. - Amarnath Murthy, Aug 01 2002
The sum of the terms in an n X n spiral. These are also triangular numbers. - William A. Tedeschi, Feb 27 2008
Hypotenuse of Pythagorean triangles with smallest side a cube: A000578(n)^2 + A083374(n)^2 = a(n)^2. - Martin Renner, Nov 12 2011
For n>1, triangular numbers that can be represented as a sum of a square and a triangular number. For example, a(2)=10=4+6=9+1. - Ivan N. Ianakiev, Apr 24 2012
A037270 can be constructed in the following manner: Take A000217 and for every n not in A000290 delete the corresponding A000217(n). - Ivan N. Ianakiev, Apr 26 2012
Starting at a(1)=1 simply take 1*1=1, a(2)= 2*(2+3)=10, a(3)= 3*(4+5+6)=45, a(4)=4*(7+8+9+10) and so on. - J. M. Bergot, May 01 2015
Observation: The digital roots of the terms repeat in the sequence 1, 1, 9; e.g., the digital roots of 1, 10, 45, 136, 325, and 666 are 1, 1, 9, 1, 1, and 9. Verified for the first 10000 terms. - Rob Barton, Mar 28 2018
The above observation is easily explained and proved given that the digital root of a positive number equals the number modulo 9, and a(n + 9k) == a(n) (mod 9). - M. F. Hasler, Apr 05 2018
Number of unoriented rows of length 4 using up to n colors. For a(0)=0, there are no rows using no colors. For a(1)=1, there is one row using that one color for all positions. For a(2)=10, there are 4 achiral (AAAA, ABBA, BAAB, BBBB) and 6 chiral pairs (AAAB-BAAA, AABA-ABAA, AABB-BBAA, ABAB-BABA, ABBB-BBBA, BABB-BBAB). - Robert A. Russell, Nov 14 2018
For n > 0, a(2n+1) is the number of non-isomorphic 6C_m-snakes, where m = 2n+1 or m = 2n (for n>=2). A kC_n-snake is a connected graph in which the k>=2 blocks are isomorphic to the cycle C_n and the block-cutpoint graph is a path. - Christian Barrientos, May 15 2019
Number of achiral colorings of the edges of a tetrahedron with n available colors. - Robert A. Russell, Sep 07 2019

References

  • C. Alsina and R. B. Nelson, Charming Proofs: A Journey into Elegant Mathematics, MAA, 2010. See p. 5.
  • C. Barrientos, Graceful labelings of cyclic snakes, Ars Combin., 60(2001), 85-96.
  • Albert H. Beiler, Recreations in the theory of numbers, New York: Dover, (2nd ed.) 1966, p. 106, table 55.
  • T. A. Gulliver, Sequences from Arrays of Integers, Int. Math. Journal, Vol. 1, No. 4, pp. 323-332, 2002.
  • T. A. Gulliver, Sequences from Cubes of Integers, Int. Math. Journal, 4 (2003), 439-445.
  • R. A. Wilson, Cosmic Trigger, epilogue of S.-P. Sirag.

Crossrefs

Cf. A000217, A236770 (see crossrefs).
Row 4 of A277504.
Cf. A000583 (oriented), A083374 (chiral), A000290 (achiral).
Cf. A317617.
Row 3 of A327086 (achiral simplex edge colorings).

Programs

  • GAP
    a:=List([0..30],n->n^2*(n^2+1)/2); # Muniru A Asiru, Mar 28 2018
    
  • Magma
    [n^2*(n^2 + 1)/2: n in [0..30]] // Stefano Spezia, Jan 15 2019
  • Maple
    seq(n^2*(n^2+1)/2,n=0..30); # Muniru A Asiru, Mar 28 2018
  • Mathematica
    Table[ n^2*((n^2 + 1)/2), {n, 0, 30} ]
    Table[(1/8) Round[N[Sinh[2 ArcSinh[n]]^2, 100]], {n, 0, 30}] (* Artur Jasinski, Feb 10 2010 *)
    LinearRecurrence[{5,-10,10,-5,1},{0,1,10,45,136},30] (* Harvey P. Dale, Aug 03 2014 *)
  • PARI
    a(n)=binomial(n^2+1,2) \\ Charles R Greathouse IV, Apr 25 2012
    
  • Python
    for n in range(0,30): print(n**2*(n**2+1)/2, end=', ') # Stefano Spezia, Jan 10 2019
    

Formula

a(n) = a(n-1) + n^3 + (n-1)^3.
a(n) = A000537(n)+A000537(n-1), i.e., square of sum of first n integers plus square of sum of first n-1 integers. - Henry Bottomley, Oct 15 2001
a(n) = Sum_{k=0..n^2} k. - William A. Tedeschi, Feb 27 2008
a(n) = (1/8)*sinh(2*arcsinh(n)). - Artur Jasinski, Feb 10 2010
G.f.: x*(1+x)*(1+4*x+x^2)/(1-x)^5. - Colin Barker, Mar 22 2012
a(n) = a(n-1) + A005898(n-1). - Ivan N. Ianakiev, May 13 2012
a(n) = 2 * A000217(n-1) * A000217(n) + A000290(n). - Ivan N. Ianakiev, May 26 2012
a(n) = A000217(n^2). - J. M. Bergot, Jun 07 2012
a(n) = 5*a(n-1) -10*a(n-2) +10*a(n-3) -5*a(n-4) +a(n-5) n>4, a(0)=0, a(1)=1, a(2)=10, a(3)=45, a(4)=136. - Yosu Yurramendi, Sep 02 2013
For n>0, a(n) = A000217(n)^2 + A000217(n-1)^2. - Richard R. Forberg, Dec 25 2013
a(n) = T(T(n)) + T(T(n-1)) + T(T(n)-1) + T(T(n-1)-1), where T(n) = A000217(n). - Charlie Marion, Sep 10 2016
a(n) = t(n-3)*t(n)+t(n-1)*t(n+2), with t(n)=A000217(n). - J. M. Bergot, Apr 07 2018
From Robert A. Russell, Nov 14 2018: (Start)
a(n) = (A000583(n) + A000290(n)) / 2 = (n^4 + n^2) / 2.
a(n) = A000583(n) - A083374(n) = A083374(n) + A000290(n).
G.f.: (Sum_{j=1..4} S2(4,j)*j!*x^j/(1-x)^(j+1) + Sum_{j=1..2} S2(2,j)*j!*x^j/(1-x)^(j+1)) / 2, where S2 is the Stirling subset number A008277.
G.f.: Sum_{k=1..4} A145882(4,k) * x^k / (1-x)^5.
E.g.f.: (Sum_{k=1..4} S2(4,k)*x^k + Sum_{k=1..2} S2(2,k)*x^k) * exp(x) / 2, where S2 is the Stirling subset number A008277.
For n>4, a(n) = Sum_{j=1..5} -binomial(j-6,j) * a(n-j). (End)
a(n) = n*A006003(n). - Kritsada Moomuang, Dec 16 2018
For n > 0, a(n) = Sum_{k=1..n} A317617(n,k). - Stefano Spezia, Jan 10 2019
Sum_{n>=1} 1/a(n) = 1 + Pi^2/3 - Pi*coth(Pi) = 1.13652003875929052467672874379... - Vaclav Kotesovec, Jan 21 2019
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi*csch(Pi) + Pi^2/6 - 1. - Amiram Eldar, Nov 02 2021

A299279 Coordination sequence for "reo" 3D uniform tiling.

Original entry on oeis.org

1, 8, 30, 68, 126, 180, 286, 348, 510, 572, 798, 852, 1150, 1188, 1566, 1580, 2046, 2028, 2590, 2532, 3198, 3092, 3870, 3708, 4606, 4380, 5406, 5108, 6270, 5892, 7198, 6732, 8190, 7628, 9246, 8580, 10366, 9588, 11550, 10652, 12798, 11772, 14110, 12948, 15486, 14180
Offset: 0

Views

Author

N. J. A. Sloane, Feb 10 2018

Keywords

Comments

First 20 terms computed by Davide M. Proserpio using ToposPro.

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #7.

Crossrefs

See A299280 for partial sums.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • Mathematica
    LinearRecurrence[{0, 3, 0, -3, 0, 1}, {1, 8, 30, 68, 126, 180, 286, 348}, 50] (* Paolo Xausa, Jan 16 2025 *)
  • PARI
    Vec((1 + 8*x + 27*x^2 + 44*x^3 + 39*x^4 - 3*x^6 + 4*x^7) / ((1 - x)^3*(1 + x)^3) + O(x^60)) \\ Colin Barker, Feb 11 2018

Formula

G.f.: (4*x^7 - 3*x^6 + 39*x^4 + 44*x^3 + 27*x^2 + 8*x + 1) / (1 - x^2)^3.
From Colin Barker, Feb 11 2018: (Start)
a(n) = 8*n^2 - 2 for even n > 1.
a(n) = 7*n^2 + 5 for odd n > 1.
a(n) = 3*a(n-2) - 3*a(n-4) + a(n-6) for n>7. (End)
E.g.f.: 3 - 4*x + (8*x^2 + 7*x - 2)*cosh(x) + (7*x^2 + 8*x + 5)*sinh(x). - Stefano Spezia, Jun 06 2024

A299254 Coordination sequence for 3D uniform tiling formed by stacking parallel layers of the 3^4.6 2D tiling (cf. A250120).

Original entry on oeis.org

1, 7, 21, 45, 79, 122, 175, 237, 309, 391, 482, 583, 693, 813, 943, 1082, 1231, 1389, 1557, 1735, 1922, 2119, 2325, 2541, 2767, 3002, 3247, 3501, 3765, 4039, 4322, 4615, 4917, 5229, 5551, 5882, 6223, 6573, 6933, 7303, 7682, 8071, 8469, 8877, 9295, 9722, 10159, 10605, 11061, 11527, 12002
Offset: 0

Views

Author

N. J. A. Sloane, Feb 06 2018

Keywords

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #17.

Crossrefs

Partial sums: A299260.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • Mathematica
    LinearRecurrence[{2, -1, 0, 0, 1, -2, 1}, {1, 7, 21, 45, 79, 122, 175, 237}, 50] (* Paolo Xausa, Jan 16 2025 *)
  • PARI
    Vec((1 + x)*(1 + x + x^2)*(1 + 3*x + 3*x^3 + x^4) / ((1 - x)^3*(1 + x + x^2 + x^3 + x^4)) + O(x^60)) \\ Colin Barker, Feb 07 2018

Formula

G.f.: (x^2+x+1)*(x^4+3*x^3+3*x+1)*(x+1) / ((x^4+x^3+x^2+x+1)*(1-x)^3). (This is the product of the g.f.'s for A250120 and A040000. - N. J. A. Sloane, Nov 10 2018)
a(n) = 2*a(n-1) - a(n-2) + a(n-5) - 2*a(n-6) + a(n-7) for n>7. - Colin Barker, Feb 07 2018
a(n) = 2*((sqrt(5) - 5)*(5 + 12*n^2) - (sqrt(5) - 1)*cos(2*n*Pi/5) + (sqrt(5) - 1)*cos(4*n*Pi/5))/(5*(sqrt(5) - 5)) for n > 0. - Stefano Spezia, Jun 06 2024

A299255 Coordination sequence for 3D uniform tiling formed by stacking parallel layers of the 3.3.4.3.4 2D tiling (cf. A219529).

Original entry on oeis.org

1, 7, 23, 50, 87, 135, 194, 263, 343, 434, 535, 647, 770, 903, 1047, 1202, 1367, 1543, 1730, 1927, 2135, 2354, 2583, 2823, 3074, 3335, 3607, 3890, 4183, 4487, 4802, 5127, 5463, 5810, 6167, 6535, 6914, 7303, 7703, 8114, 8535, 8967, 9410, 9863, 10327, 10802, 11287, 11783, 12290, 12807, 13335
Offset: 0

Views

Author

N. J. A. Sloane, Feb 07 2018

Keywords

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #14.

Crossrefs

Cf. A219529.
See A299261 for partial sums.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.
Cf. A099837.

Programs

  • Mathematica
    LinearRecurrence[{2,-1,1,-2,1},{1,7,23,50,87,135},60] (* Harvey P. Dale, Apr 01 2018 *)
  • PARI
    Vec((1 + x)^5 / ((1 - x)^3*(1 + x + x^2)) + O(x^60)) \\ Colin Barker, Feb 09 2018

Formula

G.f.: (x + 1)^5 / ((x^2 + x + 1)*(1 - x)^3).
a(n) = 2*a(n-1) - a(n-2) + a(n-3) - 2*a(n-4) + a(n-5) for n>5. - Colin Barker, Feb 09 2018
a(n) = 2*(8 + 24*n^2 + A099837(n+3)/2)/9 for n > 0. - Stefano Spezia, Jun 06 2024

A299256 Coordination sequence for 3D uniform tiling formed by stacking parallel layers of the 3.6.3.6 2D tiling (cf. A008579).

Original entry on oeis.org

1, 6, 18, 40, 72, 112, 162, 220, 288, 364, 450, 544, 648, 760, 882, 1012, 1152, 1300, 1458, 1624, 1800, 1984, 2178, 2380, 2592, 2812, 3042, 3280, 3528, 3784, 4050, 4324, 4608, 4900, 5202, 5512, 5832, 6160, 6498, 6844, 7200, 7564, 7938, 8320, 8712, 9112, 9522, 9940, 10368, 10804, 11250, 11704
Offset: 0

Views

Author

N. J. A. Sloane, Feb 07 2018

Keywords

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #18.

Crossrefs

Cf. A008579.
For partial sums see A299262.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • GAP
    a:=[18,40,72,112];; for n in [5..50] do a[n]:=2*a[n-1]-2*a[n-3]+a[n-4]; od; Concatenation([1,6],a); # Muniru A Asiru, Oct 26 2018
  • Magma
    [1, 6] cat [9*n^2 div 2: n in [2..50]]; // Vincenzo Librandi, Oct 26 2018
    
  • Maple
    seq(coeff(series((1+2*x)*(x^4-2*x^3-2*x^2-2*x-1)/((x-1)^3*(1+x)),x,n+1), x, n), n = 0 .. 35); # Muniru A Asiru, Oct 26 2018
  • Mathematica
    Join[{1, 6}, LinearRecurrence[{2, 0, -2, 1}, {18, 40, 72, 112}, 50]] (* Vincenzo Librandi, Oct 26 2018 *)
  • PARI
    Vec((1 + 2*x)*(1 + 2*x + 2*x^2 + 2*x^3 - x^4) / ((1 - x)^3*(1 + x)) + O(x^60)) \\ Colin Barker, Feb 09 2018
    

Formula

G.f.: (1 + 2*x)*(x^4 - 2*x^3 - 2*x^2 - 2*x - 1) / ((x - 1)^3*(x + 1)).
From Colin Barker, Feb 09 2018: (Start)
a(n) = 9*n^2 / 2 for n>1.
a(n) = (9*n^2 - 1) / 2 for n>1.
a(n) = 2*a(n-1) - 2*a(n-3) + a(n-4) for n>5. (End)
E.g.f.: (2 + 4*x + 9*x*(x + 1)*cosh(x) + (9*x^2 + 9*x - 1)*sinh(x))/2. - Stefano Spezia, Mar 14 2024

A299257 Coordination sequence for 3D uniform tiling formed by stacking parallel layers of the 3.12.12 2D tiling (cf. A250122).

Original entry on oeis.org

1, 5, 12, 22, 36, 56, 82, 111, 144, 183, 226, 272, 324, 382, 442, 505, 576, 653, 730, 810, 900, 996, 1090, 1187, 1296, 1411, 1522, 1636, 1764, 1898, 2026, 2157, 2304, 2457, 2602, 2750, 2916, 3088, 3250, 3415, 3600, 3791, 3970, 4152, 4356, 4566, 4762, 4961, 5184, 5413, 5626, 5842, 6084, 6332
Offset: 0

Views

Author

N. J. A. Sloane, Feb 07 2018

Keywords

References

  • B. Grünbaum, Uniform tilings of 3-space, Geombinatorics, 4 (1994), 49-56. See tiling #19.

Crossrefs

Cf. A250122.
Partial sums: A299263.
The 28 uniform 3D tilings: cab: A299266, A299267; crs: A299268, A299269; fcu: A005901, A005902; fee: A299259, A299265; flu-e: A299272, A299273; fst: A299258, A299264; hal: A299274, A299275; hcp: A007899, A007202; hex: A005897, A005898; kag: A299256, A299262; lta: A008137, A299276; pcu: A005899, A001845; pcu-i: A299277, A299278; reo: A299279, A299280; reo-e: A299281, A299282; rho: A008137, A299276; sod: A005893, A005894; sve: A299255, A299261; svh: A299283, A299284; svj: A299254, A299260; svk: A010001, A063489; tca: A299285, A299286; tcd: A299287, A299288; tfs: A005899, A001845; tsi: A299289, A299290; ttw: A299257, A299263; ubt: A299291, A299292; bnn: A007899, A007202. See the Proserpio link in A299266 for overview.

Programs

  • Mathematica
    LinearRecurrence[{3, -5, 7, -7, 5, -3, 1}, {1, 5, 12, 22, 36, 56, 82, 111, 144, 183}, 60] (* Paolo Xausa, Jun 20 2024 *)
  • PARI
    Vec((1 + x)*(1 + x + x^2 + 3*x^3 - x^4 + 5*x^5 - 3*x^6 + 4*x^7 - 2*x^8) / ((1 - x)^3*(1 + x^2)^2) + O(x^60)) \\ Colin Barker, Feb 09 2018

Formula

G.f.: (2*x^8 - 4*x^7 + 3*x^6 - 5*x^5 + x^4 - 3*x^3 - x^2 - x - 1)*(x + 1) / ((x - 1)^3*(x^2 + 1)^2).
From Colin Barker, Feb 09 2018: (Start)
a(n) = (4 - (2+8*i)*(-i)^n - (2-8*i)*i^n + i*((-i)^n-i^n)*n + 18*n^2) / 8 for n>2, where i=sqrt(-1).
a(n) = 3*a(n-1) - 5*a(n-2) + 7*a(n-3) - 7*a(n-4) + 5*a(n-5) - 3*a(n-6) + a(n-7) for n>9. (End)
a(n) = 1/2 + 9*n^2/4 + (-1)^floor(n/2)*(A027656(n-1)/2 - A010699(n)/4). - R. J. Mathar, Feb 12 2021
Previous Showing 11-20 of 112 results. Next