A086740 Floor(A000041(n)/n).

1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 5, 6, 7, 9, 11, 14, 17, 21, 25, 31, 37, 45, 54, 65, 78, 93, 111, 132, 157, 186, 220, 260, 307, 362, 425, 499, 584, 684, 799, 933, 1087, 1266, 1471, 1708, 1980, 2294, 2654, 3068, 3541, 4084, 4704, 5415

Offset

1,7

Links

Table of n, a(n) for n=1..52.

Mathematica

Table[Floor[PartitionsP[n]/n], {n, 70}] (* Harvey P. Dale, Jun 05 2023 *)

Crossrefs

Cf. A000041, A086736 (partial sums).

Sequence in context: A067014 A096791 A199122 * A120161 A100665 A114095

Adjacent sequences: A086737 A086738 A086739 * A086741 A086742 A086743

Keyword

nonn

Author

Jon Perry, Jul 29 2003

Status

approved