The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A005895 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A005895

Weighted count of partitions with distinct parts.
(history; published version)

#32 by Alois P. Heinz at Mon Aug 10 02:26:53 EDT 2020

STATUS

editing

approved

#31 by Alois P. Heinz at Mon Aug 10 01:52:34 EDT 2020

CROSSREFS

Cf. A005896, A003406, A336902, A336903.

STATUS

approved

editing

#30 by Alois P. Heinz at Wed Feb 03 14:41:28 EST 2016

STATUS

editing

approved

#29 by Alois P. Heinz at Wed Feb 03 14:41:24 EST 2016

MAPLE

# second Maple program:

b:= proc(n, i) option remember; `if`(n>i*(i+1)/2, 0, `if`(

n=0, 1, b(n, i-1)+`if`(i>n, 0, b(n-i, min(n-i, i-1)))))

end:

a:= n-> add(j*b(n-j, min(n-j, j-1)), j=1..n):

seq(a(n), n=1..80); # Alois P. Heinz, Feb 03 2016

STATUS

approved

editing

#28 by OEIS Server at Wed Feb 03 14:37:41 EST 2016

LINKS

Alois P. Heinz, <a href="/A005895/b005895_1.txt">Table of n, a(n) for n = 1..10000</a>

#27 by Alois P. Heinz at Wed Feb 03 14:37:41 EST 2016

STATUS

editing

approved

Discussion

Wed Feb 03

14:37

OEIS Server: Installed new b-file as b005895.txt.  Old b-file is now b005895_1.txt.

#26 by Alois P. Heinz at Wed Feb 03 14:37:37 EST 2016

LINKS

Alois P. Heinz, <a href="/A005895/b005895_1.txt">Table of n, a(n) for n = 1..100010000</a>

STATUS

approved

editing

#25 by Charles R Greathouse IV at Thu Nov 21 13:11:15 EST 2013

MATHEMATICA

m = 46; f[q_] := Sum[ Product[ (1+q^j), {j, 1, m}] - Product[ (1+q^j), {j, 1, n}], {n, 0, m}]; CoefficientList[ f[q], q][[2 ;; m+1]] (* From _Jean-François Alcover, _, Apr 13 2012, after Maple *)

Discussion

Thu Nov 21

13:11

OEIS Server: https://oeis.org/edit/global/2066

#24 by Charles R Greathouse IV at Fri May 10 12:43:48 EDT 2013

COMMENTS

Also sum of largest parts of all partitions of n into distinct parts. - _Vladeta Jovovic (vladeta(AT)eunet.rs), _, Feb 15 2004

Discussion

Fri May 10

12:43

OEIS Server: https://oeis.org/edit/global/1911

#23 by Joerg Arndt at Mon Sep 17 06:50:53 EDT 2012

STATUS

proposed

approved