A295380
Number of canonical forms for separation coordinates on hyperspheres S_n, ordered by increasing number of independent continuous parameters.
Original entry on oeis.org
1, 1, 1, 2, 3, 1, 3, 8, 5, 1, 6, 20, 22, 8, 1, 11, 49, 73, 46, 11, 1, 23, 119, 233, 206, 87, 15, 1, 46, 288, 689, 807, 485, 147, 19, 1, 98, 696, 1988, 2891, 2320, 1021, 236, 24, 1, 207, 1681, 5561, 9737, 9800, 5795, 1960, 356, 29, 1, 451, 4062, 15322, 31350, 38216, 28586, 13088, 3525, 520, 35, 1, 983, 9821, 41558, 97552, 139901, 127465, 74280, 27224, 5989, 730, 41, 1
Offset: 1
From _Petros Hadjicostas_, Jan 27 2018: (Start)
Triangle T(n,k) begins:
n\k 0 1 2 3 4 5 6 7 8 9
----------------------------------------------------------------
(S^1) 1,
(S^2) 1, 1,
(S^3) 2, 3, 1,
(S^4) 3, 8, 5, 1,
(S^5) 6, 20, 22, 8, 1,
(S^6) 11, 49, 73, 46, 11, 1,
(S^7) 23, 119, 233, 206, 87, 15, 1,
(S^8) 46, 288, 689, 807, 485, 147, 19, 1,
(S^9) 98, 696, 1988, 2891, 2320, 1021, 236, 24, 1,
(S^10) 207, 1681, 5561, 9737, 9800, 5795, 1960, 356, 29, 1,
...
(End)
- C. G. Bower, Transforms (2)
- S. Devadoss and R. C. Read, Cellular structures determined by polygons and trees, arXiv/0008145 [math.CO], 2000.
- S. L. Devadoss and R. C. Read, Cellular structures determined by polygons and trees, Ann. Combin., 5 (2001), 71-98.
- K. Schöbel and A. Veselov, Separation coordinates, moduli spaces, and Stasheff polytopes, arXiv:1307.6132 [math.DG], 2014.
- K. Schöbel and A. Veselov, Separation coordinates, moduli spaces and Stasheff polytopes, Commun. Math. Phys., 337 (2015), 1255-1274.
A332730
a(n) = Sum_{d|n} tau(d/gcd(d, n/d)), where tau = A000005.
Original entry on oeis.org
1, 3, 3, 5, 3, 9, 3, 8, 5, 9, 3, 15, 3, 9, 9, 11, 3, 15, 3, 15, 9, 9, 3, 24, 5, 9, 8, 15, 3, 27, 3, 15, 9, 9, 9, 25, 3, 9, 9, 24, 3, 27, 3, 15, 15, 9, 3, 33, 5, 15, 9, 15, 3, 24, 9, 24, 9, 9, 3, 45, 3, 9, 15, 19, 9, 27, 3, 15, 9, 27, 3, 40, 3, 9, 15
Offset: 1
-
Table[Sum[DivisorSigma[0, d/GCD[d, n/d]], {d, Divisors[n]}], {n, 1, 75}]
f[p_, e_] := Floor[(e+3)/2]; A322483[n_] := If[n==1, 1, Times @@ (f @@@ FactorInteger[n])]; Table[Sum[A322483[d], {d, Divisors[n]}], {n, 1, 75}]
f[p_, e_] := Floor[(e + 1)*(e + 5)/4]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Dec 05 2022 *)
A126696
Tenth-squares: floor(n/10)*ceiling(n/10).
Original entry on oeis.org
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 6, 6, 6, 6, 6, 6, 6, 6, 6, 9, 12, 12, 12, 12, 12, 12, 12, 12, 12, 16, 20, 20, 20, 20, 20, 20, 20, 20, 20, 25, 30, 30, 30, 30, 30, 30, 30, 30, 30, 36, 42, 42, 42, 42, 42, 42, 42, 42, 42, 49, 56, 56, 56, 56, 56, 56, 56, 56, 56
Offset: 0
-
[ Floor(n/10)*Ceiling(n/10) : n in [0..100]];
-
f[n_]:=Module[{c=n/10},Floor[c]Ceiling[c]];f[Range[0,90]] (* Harvey P. Dale, Apr 04 2011 *)
A271647
Irregular triangle read by rows: the natural numbers from right to left.
Original entry on oeis.org
1, 2, 4, 3, 6, 5, 9, 8, 7, 12, 11, 10, 16, 15, 14, 13, 20, 19, 18, 17, 25, 24, 23, 22, 21, 30, 29, 28, 27, 26, 36, 35, 34, 33, 32, 31, 42, 41, 40, 39, 38, 37, 49, 48, 47, 46, 45, 44, 43, 56, 55, 54, 53, 52, 51, 50, 64, 63, 62, 61, 60, 59, 58, 57
Offset: 1
Irregular triangle:
1,
2,
4, 3,
6, 5,
9, 8, 7,
12, 11, 10,
16, 15, 14, 13,
20, 19, 18, 17,
25, 24, 23, 22, 21,
30, 29, 28, 27, 26,
etc.
-
count:= 0:
for r from 1 to 20 do
d:= ceil(r/2);
for i from 0 to d-1 do A[r,i]:= count+ d-i od;
count:= count+d;
od:
seq(seq(A[r,i],i=0..ceil(r/2)-1),r=1..20); # Robert Israel, Apr 11 2016
-
Table[Reverse@ Range[Floor[n/2]] + Floor[(n - 1)^2/4], {n, 16}] // Flatten (* Michael De Vlieger, Apr 11 2016 *)
A302800
Irregular triangle read by rows: T(n,k) is the area of the k-th region of the diagram with n rows described in A237591.
Original entry on oeis.org
1, 3, 5, 1, 8, 2, 11, 4, 15, 5, 1, 19, 7, 2, 24, 9, 3, 29, 11, 5, 35, 13, 6, 1, 41, 16, 7, 2, 48, 18, 9, 3, 55, 21, 11, 4, 63, 24, 12, 6, 71, 27, 14, 7, 1, 80, 30, 16, 8, 2, 89, 34, 18, 9, 3, 99, 37, 20, 11, 4, 109, 41, 22, 13, 5, 120, 45, 24, 14, 7, 131, 49, 27, 15, 8, 1, 143, 53, 29, 17, 9, 2
Offset: 1
Triangle begins:
1;
3;
5, 1;
8, 2;
11, 4;
15, 5, 1;
19, 7, 2;
24, 9, 3;
29, 11, 5;
35, 13, 6, 1;
41, 16, 7, 2;
48, 18, 9, 3;
55, 21, 11, 4;
63, 24, 12, 6;
71, 27, 14, 7, 1;
80, 30, 16, 8, 2;
89, 34, 18, 9, 3;
99, 37, 20, 11, 4;
109, 41, 22, 13, 5;
120, 45, 24, 14, 7;
131, 49, 27, 15, 8, 1;
...
Illustration for n = 10:
We draw the first 10 rows of the infinite diagram described in A237591 as shown below:
Row _
1 _| |
2 _| _|
3 _| | |
4 _| _| |
5 _| | _|
6 _| _| | |
7 _| | | |
8 _| _| _| |
9 _| | | _|
10 |_ _ _ _ _ _|_ _|_|_|
Area 35 13 6 1
.
The diagram contains four regions and the areas of the successives regions from left to right are respectively [35, 13, 6, 1], so the 10th row of this triangle is [35, 13, 6, 1].
Note that this infinite diagram gives a correspondence between the number of partitions into k consecutive parts and the symmetric representation of A000203, A024916, A004125 and many other integer sequences. For more information see A196020, A236104, A235791, A237048, A237593, A262626, A286000 and A286001.
Column 1 gives
A024206 without its initial zero.
Column 2 gives the partial sums of the
A261348.
Cf.
A000203,
A004125,
A024916,
A196020,
A235791,
A236104,
A237048,
A237591,
A237593,
A244050,
A245092,
A262626,
A286000,
A286001.
A320657
a(n) is the number of non-unimodal sequences with n nonzero terms that arise as a convolution of sequences of binomial coefficients preceded by a finite number of ones.
Original entry on oeis.org
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 5, 7, 12, 16, 24, 30, 41, 50, 65, 77, 96, 112, 136, 156, 185, 210, 245, 275, 316, 352, 400, 442, 497, 546, 609, 665, 736, 800, 880, 952, 1041, 1122, 1221, 1311, 1420, 1520, 1640, 1750, 1881, 2002, 2145, 2277, 2432, 2576, 2744, 2900, 3081, 3250, 3445, 3627, 3836, 4032
Offset: 1
-
Table[If[EvenQ[n], 2*(Sum[Floor[i(i+4)/4], {i,0,(n/2)}]) - Floor[n^2/16], 2*(Sum[Floor[i(i+4)/4], {i,0,(n-1)/2}]) - Floor[(n-1)^2/16] + Floor[(n+1)(n+9)/16]], {n,0,40}]
A362894
Triangle read by rows: T(n,k) is the number of simple connected graphs on n unlabeled nodes having Hadwiger number k, 1 <= k <= n.
Original entry on oeis.org
1, 0, 1, 0, 1, 1, 0, 2, 3, 1, 0, 3, 12, 5, 1, 0, 6, 50, 47, 8, 1, 0, 11, 230, 448, 152, 11, 1
Offset: 1
Triangle begins:
1;
0, 1;
0, 1, 1;
0, 2, 3, 1;
0, 3, 12, 5, 1;
0, 6, 50, 47, 8, 1;
0, 11, 230, 448, 152, 11, 1;
Cf.
A032766 (n-cocktail party graph).
A353212 (n-path complement graph).
Comments