A047971
Triangle of coefficients of Gaussian polynomials [ n+3,3 ].
Original entry on oeis.org
1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 2, 3, 3, 3, 3, 2, 1, 1, 1, 1, 2, 3, 4, 4, 5, 4, 4, 3, 2, 1, 1, 1, 1, 2, 3, 4, 5, 6, 6, 6, 6, 5, 4, 3, 2, 1, 1, 1, 1, 2, 3, 4, 5, 7, 7, 8, 8, 8, 7, 7, 5, 4, 3, 2, 1, 1
Offset: 0
The table a(p,w) = [q^w][p+3,3]_q starts:
p\w 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ...
0: 1
1: 1 1 1 1
2: 1 1 2 2 2 1 1
3: 1 1 2 3 3 3 3 2 1 1
4: 1 1 2 3 4 4 5 4 4 3 2 1 1
5: 1 1 2 3 4 5 6 6 6 6 5 4 3 2 1 1
6: 1 1 2 3 4 5 7 7 8 8 8 7 7 5 4 3 2 1 1
... Reformatted and extended by _Wolfdieter Lang_, Dec 04 2012
Partition example: Row p=2 is 1 1 2 2 2 1 1 because there are ten solution for (m_0, m_1, m_2, m_3) of the first equation given in a comment above, namely (2,0,0,0), (0,2,0,0), (0,0,2,0), (0,0,0,2), (1,1,0,0), (1,0,1,0), (1,0,0,1), (0,1,1,0), (0,1,0,1) and (0,0,1,1) which have the w = 1*m_1 + 2*m_2 + 3*m_3 values 0, 2, 4, 6, 1, 2, 3, 3, 4 and 5, respectively. Therefore there are 1, 1, 2, 2, 2, 1, 1 solutions for w = 0, 1, 2, 3, 4, 5, 6, respectively. - _Wolfdieter Lang_, Dec 03 2012
a(4,5) = 4 because there are 4 partitions of 5 with 1, 2, 3 or 4 parts, each being <= 3, namely all partitions of 5 excluding 5, 14 and 11111. There are also 4 partitions of 5 with 1, 2, or 3 parts, each being <= 4, namely all partitions of 5 excluding 5, 1112 and 11111. - _Wolfdieter Lang_, Dec 04 2012
The table may also be arranged as follows (see the Alford Arnold comment above):
1
..1
..1..1
..1..1..1
..1..2..1..1
.....2..2..1..1
.....2..3..2..1..1
.....1..3..3..2..1..1
- G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976, p. 242.
-
nmax = 6;
se = Series[ 1/Product[1 - q^k*x, {k, 0, 3}], {x, 0, nmax}];
row[n_] := CoefficientList[ SeriesCoefficient[se, n], q];
Flatten[ Table[ row[n], {n, 0, nmax}]] (* Jean-François Alcover, Dec 19 2011 *)
A195097
Fractalization of (1+[3n/4]), where [ ] = floor.
Original entry on oeis.org
1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 5, 4, 1, 2, 3, 5, 6, 4, 1, 2, 3, 5, 6, 7, 4, 1, 2, 3, 5, 6, 7, 8, 4, 1, 2, 3, 5, 6, 7, 9, 8, 4, 1, 2, 3, 5, 6, 7, 9, 10, 8, 4, 1, 2, 3, 5, 6, 7, 9, 10, 11, 8, 4, 1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 8, 4, 1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 12, 8, 4, 1, 2, 3
Offset: 1
-
r = 3/4; p[n_] := 1 + Floor[n*r] (* A037915 *)
Table[p[n], {n, 1, 90}]
g[1] = {1}; g[n_] := Insert[g[n - 1], n, p[n]]
f[1] = g[1]; f[n_] := Join[f[n - 1], g[n]]
f[20] (* A195097 *)
row[n_] := Position[f[30], n];
u = TableForm[Table[row[n], {n, 1, 5}]]
v[n_, k_] := Part[row[n], k];
w = Flatten[Table[v[k, n - k + 1], {n, 1, 13},
{k, 1, n}]](* A195098 *)
q[n_] := Position[w, n]; Flatten[Table[q[n],
{n, 1, 80}]](* A195099 *)
A195098
Interspersion fractally induced by (1+[3n/4]), where [ ] = floor; a rectangular array, by antidiagonals.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 14, 16, 17, 18, 21, 19, 20, 22, 23, 24, 28, 25, 26, 27, 29, 30, 31, 36, 32, 33, 34, 35, 37, 38, 39, 45, 40, 41, 42, 44, 43, 46, 47, 48, 55, 49, 50, 51, 54, 52, 53, 56, 57, 58, 66, 59, 60, 61, 65, 62, 63, 64, 67, 68, 69
Offset: 1
Northwest corner:
1...2...4...7...11..16..22
3...5...8...12..17..23..30
6...9...13..18..24..31..39
10..15..21..28..36..45..55
14..19..25..32..40..49..59
-
r = 3/4; p[n_] := 1 + Floor[n*r] (* A037915 *)
Table[p[n], {n, 1, 90}]
g[1] = {1}; g[n_] := Insert[g[n - 1], n, p[n]]
f[1] = g[1]; f[n_] := Join[f[n - 1], g[n]]
f[20] (* A195097 *)
row[n_] := Position[f[30], n];
u = TableForm[Table[row[n], {n, 1, 5}]]
v[n_, k_] := Part[row[n], k];
w = Flatten[Table[v[k, n - k + 1], {n, 1, 13},
{k, 1, n}]](* A195098 *)
q[n_] := Position[w, n]; Flatten[Table[q[n],
{n, 1, 80}]](* A195099 *)
A090221
Array used for numerators of g.f.s for column sequences of array A090214 ((4,4)-Stirling2).
Original entry on oeis.org
1, 96, 72, 14400, 16, 38400, 3456000, 1, 27000, 22104000, 1270080000, 7200, 34905600, 16111872000, 682795008000, 856, 21154176, 48248363520, 15279164006400, 516193026048000, 48, 6064128, 54644474880, 78083415244800
Offset: 4
[1]; [96]; [72,14400]; [16,38400,3456000]; [1,27000,22104000,1270080000]; ...
G(5,x)/x^2 = 96/((1-4!*x)*(1-5*4*3*2*x)). kmax(5)=0, hence P(5,x)=a(5,0)=96; x^2 from x^ceiling(5/4).
A353212
Hadwiger number of the n-path complement graph.
Original entry on oeis.org
1, 1, 2, 2, 3, 4, 5, 6, 7, 7, 8, 9, 10, 10, 11, 12, 13, 13, 14, 15, 16, 16, 17, 18, 19, 19, 20, 21, 22, 22, 23, 24, 25, 25, 26, 27, 28, 28, 29, 30, 31, 31, 32, 33, 34, 34, 35, 36, 37, 37, 38, 39, 40, 40, 41, 42, 43, 43, 44, 45, 46, 46, 47, 48, 49, 49, 50, 51, 52, 52
Offset: 1
A066530
Expansion of (1+x+x^3)/((1-x)*(1-x^4)).
Original entry on oeis.org
1, 2, 2, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 11, 11, 12, 13, 14, 14, 15, 16, 17, 17, 18, 19, 20, 20, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 29, 29, 30, 31, 32, 32, 33, 34, 35, 35, 36, 37, 38, 38, 39, 40, 41, 41, 42, 43, 44, 44, 45, 46, 47, 47, 48, 49, 50, 50, 51, 52, 53, 53, 54, 55
Offset: 0
-
[Floor((3*n + 5)/4): n in [0..100]]; // Wesley Ivan Hurt, Jan 02 2017
-
A066530:=n->floor((3*n+5)/4): seq(A066530(n), n=0..100); # Wesley Ivan Hurt, Jan 02 2017
-
CoefficientList[ Series[ (1 + x + x^3)/((1 - x)*(1 - x^4)), {x, 0, 75} ], x] (* or *) Table[Floor[(3 n + 5)/4], {n, 0, 75}]
LinearRecurrence[{1, 0, 0, 1, -1}, {1, 2, 2, 3, 4}, 80] (* Harvey P. Dale, Apr 01 2013 *)
A137178
a(n) = sum_(1..n) [S2(n)mod 2 - floor(5*S2(n)/7)mod 2], where S2(n) = binary weight of n.
Original entry on oeis.org
0, 1, 2, 1, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 2, 3, 2, 1, 2, 1, 2, 3, 3, 2, 3, 4, 4, 5, 5, 5, 5, 6, 5, 4, 5, 4, 5, 6, 6, 5, 6, 7, 7, 8, 8, 8, 8, 7, 8, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 11, 10, 11, 10, 11, 12, 12, 11, 12, 13, 13, 14, 14, 14, 14, 13, 14, 15, 15, 16, 16, 16
Offset: 0
- John A. Pelesko, Generalizing the Conway-Hofstadter $10,000 Sequence, Journal of Integer Sequences, Vol. 7 (2004), Article 04.3.5.
- Klaus Pinn, Order and Chaos in Hofstadter's Q(n) Sequence, arXiv:chao-dyn/9803012, 1998.
- Klaus Pinn, A Chaotic Cousin Of Conway's Recursive Sequence, arXiv:cond-mat/9808031, 1998.
Cf.
A005185,
A010060,
A115384,
A135585,
A135947,
A135993,
A004001,
A004526,
A004396,
A037915,
A135133,
A135136.
-
Accumulate@ Array[Mod[#2, 2] - Mod[Floor[5 #2/7], 2] & @@ {#, DigitCount[#, 2, 1]} &, 85, 0] (* Michael De Vlieger, Jan 23 2019 *)
A278703
Divide a full period sine wave into n equally spaced points along the x-axis, labeled 1 through n, from left to right. Rank the points according to their sine value and read by rows.
Original entry on oeis.org
1, 2, 1, 3, 2, 1, 4, 3, 2, 1, 4, 5, 3, 1, 2, 5, 6, 4, 3, 1, 2, 6, 5, 7, 4, 1, 3, 2, 7, 6, 8, 5, 4, 1, 3, 2, 7, 8, 6, 9, 5, 1, 4, 2, 3, 8, 9, 7, 10, 6, 5, 1, 4, 2, 3, 9, 8, 10, 7, 11, 6, 1, 5, 2, 4, 3, 10, 9, 11, 8, 12, 7, 6, 1, 5, 2, 4, 3, 10, 11, 9, 12, 8, 13, 7, 1, 6, 2, 5, 3, 4
Offset: 1
Row 1: 1;
Row 2: 2, 1;
Row 3: 3, 2, 1;
Row 4: 4, 3, 2, 1;
Row 5: 4, 5, 3, 1, 2;
Row 6: 5, 6, 4, 3, 1, 2;
Row 7: 6, 5, 7, 4, 1, 3, 2;
Row 8: 7, 6, 8, 5, 4, 1, 3, 2;
Row 9: 7, 8, 6, 9, 5, 1, 4, 2, 3;
Row 10: 8, 9, 7, 10, 6, 5, 1, 4, 2, 3;
etc.
Row 3: The first point is (Pi/2, 1), the second point is (Pi,0) and the third point is (3*Pi/2, -1). Sorting by the Y value and reading the points by their index, we have 3, 2, 1.
Row 4: The first point is at (2*Pi/5, sqrt(5/8 + sqrt(5)/8)), point two is at (4*Pi/5, sqrt(5/8 - sqrt(5)/8)), point three is at (6*Pi/5, -sqrt(5/8 - sqrt(5)/8)) and point four is at (8*Pi/5, -sqrt(5/8 + sqrt(5)/8)). Sorting the point labels by their Y values in increasing order, we have 4, 3, 2, 1.
-
f[n_] := Transpose[ Sort[ Table[{N[ Sin[ 2i*Pi/(n +1)], 9], i}, {i, n}]]][[2]]; Array[f, 13] // Flatten
Showing 1-8 of 8 results.
Comments