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.

Showing 1-4 of 4 results.

A241086 Number of partitions p of n into distinct parts such that max(p) <= 2*(number of parts of p).

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 4, 4, 5, 5, 6, 7, 8, 9, 11, 12, 14, 15, 17, 19, 21, 24, 27, 31, 34, 38, 42, 47, 51, 57, 62, 70, 77, 85, 93, 104, 114, 125, 137, 150, 164, 180, 196, 214, 234, 255, 279, 304, 332, 360, 393, 426, 464, 502, 545, 589, 640, 691, 749
Offset: 0

Views

Author

Clark Kimberling, Apr 17 2014

Keywords

Crossrefs

Cf. A241085, A241087, A241088, A241089.

Programs

  • Mathematica
    z = 40; f[n_] := f[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &];
Table[Count[f[n], p_ /; Max[p] < 2*Length[p]], {n, 0, z}]  (* A241085 *)
Table[Count[f[n], p_ /; Max[p] <= 2*Length[p]], {n, 0, z}] (* A241086 *)
Table[Count[f[n], p_ /; Max[p] == 2*Length[p]], {n, 0, z}] (* A241087 *)
Table[Count[f[n], p_ /; Max[p] >= 2*Length[p]], {n, 0, z}] (* A241088 *)
Table[Count[f[n], p_ /; Max[p] > 2*Length[p]], {n, 0, z}]  (* A241089 *)

Formula

a(15) counts these 7 partitions: 8421, 7521, 7431, 654, 6531, 6432, 54321.

A241089 Number of partitions p of n into distinct parts such that max(p) > 2*(number of parts of p).

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 2, 3, 4, 5, 6, 8, 10, 13, 16, 20, 24, 29, 35, 42, 50, 61, 72, 85, 101, 118, 138, 161, 188, 218, 254, 293, 339, 391, 450, 515, 591, 675, 771, 878, 999, 1135, 1289, 1460, 1652, 1868, 2108, 2376, 2676, 3009, 3379, 3793, 4250, 4760, 5325, 5952
Offset: 0

Views

Author

Clark Kimberling, Apr 17 2014

Keywords

Examples

			a(9) counts these 5 partitions:  9, 81, 72, 63, 54.

Crossrefs

Cf. A241085, A241086, A241087, A241088.

Programs

  • Mathematica
    z = 40; f[n_] := f[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &];
Table[Count[f[n], p_ /; Max[p] < 2*Length[p]], {n, 0, z}]  (* A241085 *)
Table[Count[f[n], p_ /; Max[p] <= 2*Length[p]], {n, 0, z}] (* A241086 *)
Table[Count[f[n], p_ /; Max[p] == 2*Length[p]], {n, 0, z}] (* A241087 *)
Table[Count[f[n], p_ /; Max[p] >= 2*Length[p]], {n, 0, z}] (* A241088 *)
Table[Count[f[n], p_ /; Max[p] > 2*Length[p]], {n, 0, z}]  (* A241089 *)

A241087 Number of partitions p of n into distinct parts such that max(p) = 2*(number of parts of p).

Original entry on oeis.org

0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 2, 2, 2, 2, 2, 2, 3, 4, 4, 6, 5, 6, 6, 7, 7, 9, 10, 12, 13, 15, 16, 18, 19, 20, 23, 25, 28, 30, 35, 38, 43, 46, 51, 55, 61, 64, 72, 76, 84, 91, 101, 109, 120, 130, 142, 155, 168, 181, 196, 212, 228, 248, 266, 288, 311, 337
Offset: 0

Views

Author

Clark Kimberling, Apr 17 2014

Keywords

Examples

			a(15) counts these 2 partitions:  8421, 654.

Crossrefs

Cf. A241085, A241086, A241088, A241089.

Programs

  • Mathematica
    z = 40; f[n_] := f[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &];
Table[Count[f[n], p_ /; Max[p] < 2*Length[p]], {n, 0, z}]  (* A241085 *)
Table[Count[f[n], p_ /; Max[p] <= 2*Length[p]], {n, 0, z}] (* A241086 *)
Table[Count[f[n], p_ /; Max[p] == 2*Length[p]], {n, 0, z}] (* A241087 *)
Table[Count[f[n], p_ /; Max[p] >= 2*Length[p]], {n, 0, z}] (* A241088 *)
Table[Count[f[n], p_ /; Max[p] > 2*Length[p]], {n, 0, z}]  (* A241089 *)

A241085 Number of partitions p of n into distinct parts such that max(p) < 2*(number of parts of p).

Original entry on oeis.org

0, 1, 0, 1, 1, 1, 1, 1, 2, 2, 3, 2, 3, 3, 4, 5, 6, 6, 7, 8, 8, 10, 11, 13, 14, 17, 18, 21, 22, 25, 27, 31, 33, 38, 42, 47, 52, 57, 63, 69, 76, 82, 91, 99, 109, 119, 132, 142, 158, 171, 188, 203, 223, 240, 263, 284, 309, 334, 364, 393, 428, 463, 501, 543, 588
Offset: 0

Views

Author

Clark Kimberling, Apr 17 2014

Keywords

Examples

			a(15) counts these 5 partitions:  7521, 7431, 6531, 6432, 54321.

Crossrefs

Cf. A241086, A241087, A241088, A241089.

Programs

  • Mathematica
    z = 40; f[n_] := f[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &];
Table[Count[f[n], p_ /; Max[p] < 2*Length[p]], {n, 0, z}]  (* A241085 *)
Table[Count[f[n], p_ /; Max[p] <= 2*Length[p]], {n, 0, z}] (* A241086 *)
Table[Count[f[n], p_ /; Max[p] == 2*Length[p]], {n, 0, z}] (* A241087 *)
Table[Count[f[n], p_ /; Max[p] >= 2*Length[p]], {n, 0, z}] (* A241088 *)
Table[Count[f[n], p_ /; Max[p] > 2*Length[p]], {n, 0, z}]  (* A241089 *)
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.