A117216 -id:A117216 - cp's OEIS frontend

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

1, 41, 313, 1201, 3281, 7321, 14281, 25313, 41761, 65161, 97241, 139921, 195313, 265721, 353641, 461761, 592961, 750313, 937081, 1156721, 1412881, 1709401, 2050313, 2439841, 2882401, 3382601, 3945241, 4575313, 5278001, 6058681

Offset: 0

R. J. Mathar, Feb 13 2010

Binomial transform of 1,40,232,384,192,0,0,.. (0 continued). Convolution of the finite sequence 1,36,118,36,1 with A000332, dropping zeros.
Hypotenuse of Pythagorean triangles with smallest side a square: A016754(n)^2 + (a(n)-1)^2 = a(n)^2. - Martin Renner, Nov 12 2011
a(n) is also the first integer in a sum of (2*n + 1)^4 consecutive integers that equal (2*n + 1)^8. See A016756 and A016760. - Patrick J. McNab, Dec 26 2016

Albert H. Beiler, Recreations in the theory of numbers, New York: Dover, (2nd ed.) 1966, p. 106, table 54.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).

Cf. A000332, A016756, A016760. Partial sums of A117216.

I:=[1, 41, 313, 1201, 3281]; [n le 5 select I[n] else 5*Self(n-1) - 10*Self(n-2) + 10*Self(n-3) - 5*Self(n-4) + Self(n-5): n in [1..40]]; // Vincenzo Librandi, Dec 19 2012

A175110:=n->((2*n+1)^4+1)/2: seq(A175110(n), n=0..50); # Wesley Ivan Hurt, Apr 13 2017

CoefficientList[Series[(1 + 36*x + 118*x^2 + 36*x^3 + x^4)/(1-x)^5, {x, 0, 40}], x] (* Vincenzo Librandi, Dec 19 2012 *)
Table[((2 n + 1)^4 + 1)/2, {n, 0, 29}] (* Michael De Vlieger, Dec 26 2016 *)
LinearRecurrence[{5,-10,10,-5,1},{1,41,313,1201,3281},40] (* Harvey P. Dale, Jan 01 2022 *)

a(n)=((2*n+1)^4+1)/2 \\ Charles R Greathouse IV, Oct 16 2015

a(n) = 5*a(n-1) -10*a(n-2) +10*a(n-3) -5*a(n-4) +a(n-5).
G.f.: (1+36*x+118*x^2+36*x^3+x^4)/ (1-x)^5.
a(n)-a(n-1) = A117216(n).
a(n) = 8*A001844(n) * A000217(n) + 1 = 8*A219086(n) + 1. - Bruce J. Nicholson, Apr 13 2017

A110907 Number of points in the standard root system version of the D_3 (or f.c.c.) lattice having L_infinity norm n.

Original entry on oeis.org

1, 12, 50, 108, 194, 300, 434, 588, 770, 972, 1202, 1452, 1730, 2028, 2354, 2700, 3074, 3468, 3890, 4332, 4802, 5292, 5810, 6348, 6914, 7500, 8114, 8748, 9410, 10092, 10802, 11532, 12290, 13068, 13874, 14700, 15554, 16428, 17330, 18252, 19202

Offset: 0

N. J. A. Sloane, Apr 15 2008

This lattice consists of all points (x,y,z) where x,y,z are integers with an even sum.
The L_infinity norm of a vector is the largest component in absolute value.
The sequence for the D_k lattice has the terms ((2*n+1)^k-(2*n-1)^k)/2, if k is even, and the terms ((2n+1)^k-(2*n-1)^k)/2+(-1)^n if k is odd (like here for k=3). The sequence for A_2 is A008458, for A_3 A010006, for A_4 the first differences of A083669. A_5 is 2+2*n^2*(25+44*n^2) if n>0, and 1 if n=0. - R. J. Mathar, Feb 09 2010

			a(0) = 1: 000
a(1) = 12: +-1 +-1 0, where the 0 can be in any of the three coordinates
a(2) = 50: +-2 0 0 (6), +-2 +-1 +-1 (24), +-2 +-2 0 (12), +-2 +-2 +-2 (8).

J. H. Conway and N. J. A. Sloane, Sphere Packings, Lattices and Groups, Springer-Verlag, Chap. 4.

R. J. Mathar, Point counts of D_k and some A_k and E_k integer lattices inside hypercubes arXiv:1002.3844 [math.GT], 2010.
G. Nebe and N. J. A. Sloane, Home page for this lattice
Index entries for sequences related to f.c.c. lattice
Index entries for linear recurrences with constant coefficients, signature (2, 0, -2, 1).

Cf. A117216, A022144, A010014, A175112 (D_5), A175114 (D_6).

A110907 := proc(n) a :=0 ; for x from -n to n do for y from -n to n do for z from -n to n do if type(x+y+z,'even') then m := max( abs(x),abs(y),abs(z)) ; if m = n then a := a+1 ; end if; end if; end do ; end do ; end do ; a ; end proc: seq(A110907(n),n=0..40) ; # R. J. Mathar, Feb 03 2010

a[0] = 1; a[n_] := 1 + (-1)^n + 12*n^2;
Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Nov 16 2017, after R. J. Mathar *)

From R. J. Mathar, Feb 03 2010: (Start)
a(n) = 2*a(n-1) - 2*a(n-3) + a(n-4), n>4.
a(n) = 1 + (-1)^n + 12*n^2, n>0.
G.f.: 1 - 2*x*(6 + 13*x + 4*x^2 + x^3)/((1+x)*(x-1)^3). (End)

I would like to get analogous sequences for A_2, A_4, A_5, ..., D_4 (see A117216), D_5, ..., E_6, E_7, E_8.
Extended by R. J. Mathar, Feb 03 2010
Removed the "conjectured" attribute from formulas - R. J. Mathar, Feb 27 2010

A175112 First differences of A175111.

Original entry on oeis.org

1, 120, 1442, 6840, 21122, 51000, 105122, 194040, 330242, 528120, 804002, 1176120, 1664642, 2291640, 3081122, 4059000, 5253122, 6693240, 8411042, 10440120, 12816002, 15576120, 18759842, 22408440, 26565122, 31275000, 36585122

Offset: 0

R. J. Mathar, Feb 13 2010

Convolution of the finite sequence 1,116,967,1672,967,116,1 with A001752. Number of points in the standard root system of the D_5 lattice having L_oo norm n.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (4,-5,0,5,-4,1).

Cf. A110907, A117216, A175114.

I:=[1, 120, 1442, 6840, 21122, 51000, 105122]; [n le 7 select I[n] else 4*Self(n-1) - 5*Self(n-2) + 5*Self(n-4) - 4*Self(n-5) + Self(n-6): n in [1..40]]; // Vincenzo Librandi, Dec 19 2012

CoefficientList[Series[(116*x + 967*x^2 + 1672*x^3 + 967*x^4 + 116*x^5 + x^6+1)/((1 + x)*(1 - x)^5), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 19 2012 *)
LinearRecurrence[{4,-5,0,5,-4,1},{1,120,1442,6840,21122,51000,105122},30] (* Harvey P. Dale, Sep 12 2023 *)

a(n) = 4*a(n-1) -5*a(n-2) +5*a(n-4) -4*a(n-5) +a(n-6), n>6.
a(n) = ((2*n+1)^5-(2*n-1)^5)/2+(-1)^n, n>0.
G.f.: (116*x+967*x^2+1672*x^3+967*x^4+116*x^5+x^6+1)/((1+x)*(1-x)^5).

A175114 First differences of A175113.

Original entry on oeis.org

1, 364, 7448, 51012, 206896, 620060, 1527624, 3281908, 6373472, 11454156, 19360120, 31134884, 48052368, 71639932, 103701416, 146340180, 201982144, 273398828, 363730392, 476508676, 615680240, 785629404, 991201288, 1237724852

Offset: 0

R. J. Mathar, Feb 13 2010

Convolution of the finite sequence 1,358,5279,11764,5279,358,1 with A000389. Number of points in the standard root system of the D_6 lattice having L_infinity norm n.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A110907, A117216, A175112.

I:=[1,364,7448,51012,206896,620060,1527624]; [n le 7 select I[n] else 6*Self(n-1)-15*Self(n-2)+20*Self(n-3)-15*Self(n-4)+6*Self(n-5)-Self(n-6): n in [1..40]]; // Vincenzo Librandi, Dec 20 2012

CoefficientList[Series[(358 x + 5279 x^2 + 11764 x^3 + 5279 x^4 + 358 x^5 + 1+x^6)/(x - 1)^6, {x, 0, 40}], x] (* Vincenzo Librandi, Dec 20 2012 *)

a(n)= 6*a(n-1) -15*a(n-2) +20*a(n-3) -15*a(n-4) +6*a(n-5) -a(n-6), n>6.
a(n) = ((2*n+1)^6-(2*n-1)^6)/2 = 4*n*(12*n^2+1)*(4*n^2+3), n>0. - Bruno Berselli, Dec 27 2010
G.f.: (358*x+5279*x^2+11764*x^3+5279*x^4+358*x^5+1+x^6)/(x-1)^6. - R. J. Mathar, Jan 03 2011

A365357 Number of free 4-dimensional polyhypercubes with n cells, allowing corner- and face-connections.

Original entry on oeis.org

1, 2, 11, 139, 3196

Offset: 1

Pontus von Brömssen, Sep 03 2023

Index entries for sequences related to polyominoes.

149th row of A366766.
Cf. A068870, A117216 (coordination sequence of the underlying graph), A363205.
See A365366 for a table of similar sequences.

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A110907 Number of points in the standard root system version of the D_3 (or f.c.c.) lattice having L_infinity norm n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A175112 First differences of A175111.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

Formula

A175114 First differences of A175113.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

Formula

A365357 Number of free 4-dimensional polyhypercubes with n cells, allowing corner- and face-connections.

Views

Author

Keywords

Links

Crossrefs