A212069 -id:A212069 - cp's OEIS frontend

A211795 Number of (w,x,y,z) with all terms in {1,...,n} and wx < 2y*z.

0, 1, 11, 58, 177, 437, 894, 1659, 2813, 4502, 6836, 10008, 14121, 19449, 26117, 34372, 44422, 56597, 71044, 88160, 108115, 131328, 158074, 188773, 223604, 263172, 307719, 357715, 413493, 475690, 544480, 620632, 704381, 796413

Offset: 0

Clark Kimberling, Apr 27 2012

nonn

Each sequence in the following guide counts 4-tuples
(w,x,y,z) such that the indicated relation holds and the four numbers w,x,y,z are in {1,...,n}.  The notation "m div" means that m divides every term of the sequence.
A211058 ... wx <= yz
A211787 ... wx <= 2yz
A211795 ... wx < 2yz
A211797 ... wx > 2yz
A211809 ... wx >= 2yz
A211812 ... wx <= 3yz
A211917 ... wx < 3yz
A211918 ... wx > 3yz
A211919 ... wx >= 3yz
A211920 ... 2wx < 3yz
A211921 ... 2wx <= 3yz
A211922 ... 2wx > 3yz
A211923 ... 2wx >= 3yz
A212019 ... wx = 2yz ..... 2 div
A212020 ... wx = 3yz ..... 2 div
A212021 ... 2wx = 3yz .... 2 div
A212047 ... wx = 4yz
A212048 ... 3wx = 4yz .... 2 div
A212049 ... wx = 5yz ..... 2 div
A212050 ... 2wx = 5yz .... 2 div
A212051 ... 3wx = 5yz .... 2 div
A212052 ... 4wx = 5yz .... 2 div
A209978 ... wx = yz + 1 .. 2 div
A212053 ... wx <= yz + 1
A212054 ... wx > yz + 1
A212055 ... wx <= yz + 2
A212056 ... wx > yz + 2
A197168 ... wx = yz + 2 .. 2 div
A061201 ... w = xyz
A212057 ... w < xyz
A212058 ... w >= xyz
A212059 ... w = xyz - 1
A212060 ... w = xyz - 2
A212061 ... wx = (yz)^2
A212062 ... w^2 = xyz
A212063 ... w^2 < xyz
A212064 ... w^2 >= xyz
A212065 ... w^2 <= xyz
A212066 ... w^2 > xyz
A212067 ... w^3 = xyz
A002623 ... w = 2x + y + z
A006918 ... w = 2x + 2y + z
A000601 ... w = x + 2y + 3z (except for initial 0's)
A212068 ... 2w = x + y + z
A212069 ... 3w = x + y + z (w = average{x,y,z})
A212088 ... 3w < x + y + z
A212089 ... 3w >= x + y + z
A212090 ... w < x + y + z
A000332 ... w >= x + y + z
A212145 ... w < 2x + y + z
A001752 ... w >= 2x + y + z
A001400 ... w = 2x +3y + 4z
A005900 ... w = -x + y + z
A192023 ... w = -x + y + z + 2
A212091 ... w^2 = x^2 + y^2 + z^2 ... 3 div
A212087 ... w^2 + x^2 = y^2 + z^2
A212092 ... w^2 < x^2 + y^2 + z^2
A212093 ... w^2 <= x^2 + y^2 + z^2
A212094 ... w^2 > x^2 + y^2 + z^2
A212095 ... w^2 >= x^2 + y^2 + z^2
A212096 ... w^3 = x^3 + y^3 + z^3 ... 6 div
A212097 ... w^3 < x^3 + y^3 + z^3
A212098 ... w^3 <= x^3 + y^3 + z^3
A212099 ... w^3 > x^3 + y^3 + z^3
A212100 ... w^3 >= x^3 + y^3 + z^3
A212101 ... wx^2 = yz^2
A212102 ... 1/w = 1/x + 1/y + 1/z
A212103 ... 3/w = 1/x + 1/y + 1/z; w = h.m. of {x,y,z}
A212104 ... 3/w >= 1/x + 1/y + 1/z; w >= h.m.
A212105 ... 3/w < 1/x + 1/y + 1/z; w < h.m.
A212106 ... 3/w > 1/x + 1/y + 1/z; w > h.m.
A212107 ... 3/w <= 1/x + 1/y + 1/z; w <= h.m.
A212133 ... median(w,x,y,z) = mean(w,x,y,z)
A212134 ... median(w,x,y,z) <= mean(w,x,y,z)
A212135 ... median(w,x,y,z) > mean(w,x,y,z)
A212241 ... wx + yz > n
A212243 ... 2wx + yz = n
A212244 ... w = xyz - n
A212245 ... w = xyz - 2n
A212246 ... 2w = x + y + z - n
A212247 ... 3w = x + y + z + n
A212249 ... 3w < x + y + z + n
A212250 ... 3w >= x + y + z + n
A212251 ... 3w = x + y + z + n + 1
A212252 ... 3w = x + y + z + n + 2
A212254 ... w = x + 2y + 3z - n
A212255 ... w^2 = mean(x^2, y^2, z^2)
A212256 ... 4/w = 1/x + 1/y +1/z + 1/n
In the list above, if the relation in the second column is of the form "w rel ax + by + cz" then the sequence is linearly recurrent.  In the list below, the same is true for expressions involving more than one relation.
A000332 ... w < x <= y < z .... C(n,4)
A000914 ... w < x <= y < z .... Stirling 1st kind
A000914 ... w < x <= y >= z ... Stirling 1st kind
A050534 ... w < x < y >= z .... tritriangular
A001296 ... w <= x <= y >= z .. 4-dim pyramidal
A006322 ... x < x > y >= z
A002418 ... w < x >= y < z
A050534 ... w < x >=y >= z
A212415 ... w < x >= y <= z
A001296 ... w < x >= y <= z
A212246 ... w <= x > y <= z
A006322 ... w <= x >= y <= z
A212501 ... w > x < y >= z
A212503 ... w < 2x and y < 2z ..... A (note below)
A212504 ... w < 2x and y > 2z ..... A
A212505 ... w < 2x and y >= 2z .... A
A212506 ... w <= 2x and y <= 2z ... A
A212507 ... w < 2x and y <= 2z .... B
A212508 ... w < 2x and y < 3z ..... C
A212509 ... w < 2x and y <= 3z .... C
A212510 ... w < 2x and y > 3z ..... C
A212511 ... w < 2x and y >= 3z .... C
A212512 ... w <= 2x and y < 3z .... C
A212513 ... w <= 2x and y <= 3z ... C
A212514 ... w <= 2x and y > 3z .... C
A212515 ... w <= 2x and y >= 3z ... C
A212516 ... w > 2x and y < 3z ..... C
A212517 ... w > 2x and y <= 3z .... C
A212518 ... w > 2x and y > 3z ..... C
A212519 ... w > 2x and y >= 3z .... C
A212520 ... w >= 2x and y < 3z .... C
A212521 ... w >= 2x and y <= 3z ... C
A212522 ... w >= 2x and y > 3z .... C
A212523 ... w + x < y + z
A212560 ... w + x <= y + z
A212561 ... w + x = 2y + 2z
A212562 ... w + x < 2y + 2z ....... B
A212563 ... w + x <= 2y + 2z ...... B
A212564 ... w + x > 2y + 2z ....... B
A212565 ... w + x >= 2y + 2z ...... B
A212566 ... w + x = 3y + 3z
A212567 ... 2w + 2x = 3y + 3z
A212570 ... |w - x| = |x - y| + |y - z|
A212571 ... |w - x| < |x - y| + |y - z| ... B ... 4 div
A212572 ... |w - x| <= |x - y| + |y - z| .. B
A212573 ... |w - x| > |x - y| + |y - z| ... B ... 2 div
A212574 ... |w - x| >= |x - y| + |y - z| .. B
A212575 ... 2|w - x| = |x - y| + |y - z|
A212576 ... |w - x| = 2|x - y| + 2|y - z|
A212577 ... |w - x| = 2|x - y| - |y - z|
A212578 ... 2|w - x| = |x - y| - |y - z|
A212579 ... min{|w-x|,|w-y|} = min{|x-y|,|x-z|}
A212692 ... w = |x - y| + |y - z| ............... 2 div
A212568 ... w < |x - y| + |y - z| ............... 2 div
A212573 ... w <= |x - y| + |y - z| .............. 2 div
A212574 ... w > |x - y| + |y - z|
A212575 ... w >= |x - y| + |y - z|
A212676 ... w + x = |x - y| + |y - z| ......... H
A212677 ... w + y = |x - y| + |y - z|
A212678 ... w + x + y = |x - y| + |y - z|
A006918 ... w + x + y + z = |x - y| + |y - z| . H
A212679 ... |x - y| = |y - z| ................. H
A212680 ... |x - y| = |y - z| + 1 ..............H 2 div
A212681 ... |x - y| < |y - z| ................... 2 div
A212682 ... |x - y| >= |y - z|
A212683 ... |x - y| = w + |y - z| ............... 2 div
A212684 ... |x - y| = n - w + |y - z|
A212685 ... |w - x| = w + |y - z|
A186707 ... |w - x| < w + |y - z| ... (Note D)
A212714 ... |w - x| >= w + |y - z| .......... H . 2 div
A212686 ... 2*|w - x| = n + |y - z| ............. 4 div
A212687 ... 2*|w - x| < n + |y - z| ......... B
A212688 ... 2*|w - x| < n + |y - z| ......... B . 2 div
A212689 ... 2*|w - x| > n + |y - z| ......... B . 2 div
A212690 ... 2*|w - x| <= n + |y - z| ........ B
A212691 ... w + |x - y| = |x - z| + |y - z| . E . 2 div
...
In the above lists, all the terms of (w,x,y,z) are in {1,...,n}, but in the next lists they are all in {0,...,n}, and sequences are all linearly recurrent.
  R=range{w,x,y,z}=max{w,x,y,z}-min{w,x,y,z}.
A212740 ... max{w,x,y,z} < 2*min{w,x,y,z} .... A
A212741 ... max{w,x,y,z} >= 2*min{w,x,y,z} ... A
A212742 ... max{w,x,y,z} <= 2*min{w,x,y,z} ... A
A212743 ... max{w,x,y,z} > 2*min{w,x,y,z} .... A . 2 div
A212744 ... w=range (=max-min) ............... E
A212745 ... w=max{w,x,y,z} - 2*min{w,x,y,z}
A212746 ... R is in {w,x,y,z} ................ E
A212569 ... R is not in {w,x,y,z} ............ E
A212749 ... w=R or xA212750 ... w=R or x=R or yA212751 ... w=R or x=R or yA212752 ... wR ......... A
A212753 ... wR or z>R ......... D
A212754 ... wR or y>R or z>R ......... D
A002415 ... w = x + R ........................ D
A212755 ... |w - x| = R ...................... D
A212756 ... 2w = x + R
A212757 ... 2w = R
A212758 ... w = floor(R/2)
A002413 ... w = floor((x+y+z/2))
A212759 ... w, x, y are even
A212760 ... w is even and x = y + z .......... E
A212761 ... w is odd and x and y are even .... F . 2 div
A212762 ... w and x are odd y is even ........ F . 2 div
A212763 ... w, x, y are odd .................. F
A212764 ... w, x, y are even and z is odd .... F
A030179 ... w and x are even and y and z odd
A212765 ... w is even and x,y,z are odd ...... F
A212766 ... w is even and x is odd ........... A . 2 div
A212767 ... w and x are even and w+x=y+z ..... E
A212889 ... R is even ........................ A
A212890 ... R is odd ......................... A . 2 div
A212742 ... w-x, x-y, y-z are all even ....... A
A212892 ... w-x, x-y, y-z are all odd ........ A
A212893 ... w-x, x-y, y-z have same parity ... A
A005915 ... min{|w-x|, |x-y|, |y-z|} = 0
A212894 ... min{|w-x|, |x-y|, |y-z|} = 1
A212895 ... min{|w-x|, |x-y|, |y-z|} = 2
A179824 ... min{|w-x|, |x-y|, |y-z|} > 0
A212896 ... min{|w-x|, |x-y|, |y-z|} <= 1
A212897 ... min{|w-x|, |x-y|, |y-z|} > 1
A212898 ... min{|w-x|, |x-y|, |y-z|} <= 2
A212899 ... min{|w-x|, |x-y|, |y-z|} > 2
A212901 ... |w-x| = |x-y| = |y-z|
A212900 ... |w-x|, |x-y|, |y-z| are distinct . G
A212902 ... |w-x| < |x-y| < |y-z| ............ G
A212903 ... |w-x| <= |x-y| <= |y-z| .......... G
A212904 ... |w-x| + |x-y| + |y-z| = n ........ H
A212905 ... |w-x| + |x-y| + |y-z| = 2n ....... H
...
Note A: A212503-A212506 (and others) have these recurrence coefficients: 2,2,-6,0,6,-2,-2,1.
B: 3,-1,-5,5,1,-3,1
C: 0,2,2,-1,-4,0,2,0,-2,0,4,1,-2,-2,0,1
D: 4,-5,0,5,-4,1
E: 1,3,-3,-3,3,1,-1
F: 1,4,-4,-6,6,4,-4,-1,1
G: 2,1,-3,-1,1,3,-1,-2,1
H: 2,1,-4,1,2,-1

		Examples
					a(2)=11 counts these (w,x,y,z): (1,1,1,1), (1,1,1,2), (1,1,2,1), (2,1,2,1), (2,1,1,2), (1,2,2,1), (1,2,1,2), (1,1,2,2), (1,2,2,2), (2,1,2,2), (2,2,2,2).
		
	
References
			A. Barvinok, Lattice Points and Lattice Polytopes, Chapter 7 in Handbook of Discrete and Computational Geometry, CRC Press, 1997, 133-152.
P. Gritzmann and J. M. Wills, Lattice Points, Chapter 3.2 in Handbook of Convex Geometry, vol. B, North-Holland, 1993, 765-797.

		
Links
			Bo Gyu Jeong, Table of n, a(n) for n = 0..200

		
CrossrefsCf. A000583 (n^4), A210000, A211809, A212959.
Programs
			
				Mathematica
				t = Compile[{{n, _Integer}}, Module[{s = 0},
    (Do[If[w*x < 2 y*z, s = s + 1], {w, 1, #},
      {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 40]] (* A211795 *)
(* Peter J. C. Moses, Apr 13 2012 *)
				

		
Formulaa(n) = n^4 - A211809(n).

A212088 Number of (w,x,y,z) with all terms in {1,...,n} and w

Original entry on oeis.org

0, 0, 7, 36, 117, 292, 612, 1143, 1963, 3159, 4833, 7099, 10080, 13914, 18751, 24750, 32085, 40942, 51516, 64017, 78667, 95697, 115353, 137893, 163584, 192708, 225559, 262440, 303669, 349576, 400500, 456795, 518827, 586971, 661617

Offset: 0

Clark Kimberling, May 01 2012

Also, number of (w,x,y,z) with all terms in {1,...,n} and w>average{x,y,z}.
a(n) + A212089(n) = n^4.
For a guide to related sequences, see A211795.

Index entries for linear recurrences with constant coefficients, signature (4, -6, 5, -5, 6, -4, 1).

Cf. A211795, A212069, A212089.

t = Compile[{{n, _Integer}}, Module[{s = 0},
(Do[If[3 w < x + y + z, s = s + 1],
{w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 50]] (* A212088 *)
FindLinearRecurrence[%]
(* Peter J. C. Moses, Apr 13 2012 *)
LinearRecurrence[{4, -6, 5, -5, 6, -4, 1},{0, 0, 7, 36, 117, 292, 612},35] (* Ray Chandler, Aug 02 2015 *)

a(n) = 4*a(n-1)-6*a(n-2)+5*a(n-3)-5*a(n-4)+6*a(n-5)-4*a(n-6)+a(n-7).

G.f.: x^2*(x^4+5*x^3+15*x^2+8*x+7) / ((x^2+x+1)*(1-x)^5). - Alois P. Heinz, May 18 2012

A287335 Nonnegative numbers k such that 3*k + 2 is a cube.

Original entry on oeis.org

2, 41, 170, 443, 914, 1637, 2666, 4055, 5858, 8129, 10922, 14291, 18290, 22973, 28394, 34607, 41666, 49625, 58538, 68459, 79442, 91541, 104810, 119303, 135074, 152177, 170666, 190595, 212018, 234989, 259562, 285791, 313730, 343433, 374954, 408347, 443666, 480965

Offset: 1

Bruno Berselli, May 23 2017

Corresponding cubes are listed in A016791.

Primes in the sequence: 2, 41, 443, 1637, 22973, 34607, 91541, 234989, ...

Bruno Berselli, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Subsequence of A047292.
Cf. A016791, A131476, A212069.
Cf. A244728: nonnegative k such that 3*k is a cube.
Cf. A121628: nonnegative k such that 3*k + 1 is a cube.

Magma
```
[9*n^3-9*n^2+3*n-1: n in [1..40]];
```

Table[9 n^3 - 9 n^2 + 3 n - 1, {n, 0, 40}]
LinearRecurrence[{4,-6,4,-1},{2,41,170,443},40] (* Harvey P. Dale, Aug 28 2021 *)

Maxima
```
makelist(9*n^3-9*n^2+3*n-1, n, 1, 40);
```

[9*n**3-9*n**2+3*n-1 for n in range(1,40)]

Sage
```
[9*n^3-9*n^2+3*n-1 for n in (1..40)]
```

O.g.f.: x*(2 + 33*x + 18*x^2 + x^3)/(1 - x)^4.
E.g.f.: 1 - (1 - 3*x - 18*x^2 - 9*x^3)*exp(x).
a(n) = 9*n^3 - 9*n^2 + 3*n - 1.
a(n) = A131476(3*n-1) = A212069(3*n-1).

A212089 Number of (w,x,y,z) with all terms in {1,...,n} and w>=average{x,y,z}.

Original entry on oeis.org

0, 1, 9, 45, 139, 333, 684, 1258, 2133, 3402, 5167, 7542, 10656, 14647, 19665, 25875, 33451, 42579, 53460, 66304, 81333, 98784, 118903, 141948, 168192, 197917, 231417, 269001, 310987, 357705, 409500, 466726, 529749, 598950, 674719

Offset: 0

Clark Kimberling, May 01 2012

nonn

Also, number of (w,x,y,z) with all terms in {1,...,n} and w<=average{x,y,z}.
a(n)+A212088(n)=n^4.
For a guide to related sequences, see A211795.

Index entries for linear recurrences with constant coefficients, signature (4, -6, 5, -5, 6, -4, 1).

Cf. A211795, A212069, A212088.

t = Compile[{{n, _Integer}}, Module[{s = 0},
(Do[If[3 w >= x + y + z, s = s + 1],
{w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 50]] (* A212088 *)
FindLinearRecurrence[%]
(* Peter J. C. Moses, Apr 13 2012 *)
LinearRecurrence[{4, -6, 5, -5, 6, -4, 1},{0, 1, 9, 45, 139, 333, 684},35] (* Ray Chandler, Aug 02 2015 *)

a(n) = 4*a(n-1)-6*a(n-2)+5*a(n-3)-5*a(n-4)+6*a(n-5)-4*a(n-6)+a(n-7).

G.f.: x*(1+7*x^4+8*x^3+15*x^2+5*x) / ((x^2+x+1)*(-x+1)^5). - Alois P. Heinz, May 18 2012

A212242 Number of (u,v,w,x,y,z) with all terms in {0,1,...,n} and 5u=v+w+x+y+z.

Original entry on oeis.org

1, 2, 53, 204, 625, 1556, 3357, 6558, 11809, 20000, 32211, 49762, 74263, 107564, 151875, 209716, 283967, 377918, 495219, 640000, 816821, 1030722, 1287273, 1592524, 1953125, 2376276, 2869777, 3442078, 4102229, 4860000, 5725831

Offset: 0

Clark Kimberling, May 16 2012

nonn

u=average{v,w,x,y,z}. For a guide to related sequences, see A211795.

Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,2,-5,10,-10,5,-1).

Cf. A211795, A212257, A212069.

t = Compile[{{n, _Integer}}, Module[{s = 0},
(Do[If[5 u == v + w + x + y + z, s = s + 1], {u, 0, #}, {v, 0, #},{w, 0, #}, {x, 0, #}, {y, 0, #}, {z, 0, #}] &[n]; s)]];
Map[t[#] &, Range[0, 40]]   (* A212242 *)
(* Peter J. C. Moses, Apr 13 2012 *)
LinearRecurrence[{5,-10,10,-5,2,-5,10,-10,5,-1},{1,2,53,204,625,1556,3357,6558,11809,20000},40] (* Harvey P. Dale, Aug 20 2021 *)

a(n) = 5a(n-1)-10a(n-2)+10a(n-3)-5a(n-4)+2a(n-5)-5a(n-6)+10a(n-7)-10a(n-8)+5a(n-9)-a(n-10).

G.f.: ( 1-3*x+53*x^2-51*x^3+120*x^4-51*x^5+53*x^6-3*x^7+x^8 ) / ( (x^4+x^3+x^2+x+1)*(x-1)^6 ). - R. J. Mathar, Jun 26 2012

Showing 1-5 of 5 results.

cp's OEIS Frontend

A211795 Number of (w,x,y,z) with all terms in {1,...,n} and w*x < 2*y*z.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

A212088 Number of (w,x,y,z) with all terms in {1,...,n} and w

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A287335 Nonnegative numbers k such that 3*k + 2 is a cube.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

Maxima

Python

Sage

Formula

A212089 Number of (w,x,y,z) with all terms in {1,...,n} and w>=average{x,y,z}.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A212242 Number of (u,v,w,x,y,z) with all terms in {0,1,...,n} and 5u=v+w+x+y+z.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A211795 Number of (w,x,y,z) with all terms in {1,...,n} and wx < 2y*z.