|
|
A058682
|
|
a(n) = p(0) + p(1) + ... + p(n) - n - 1, where p = partition numbers, A000041.
|
|
5
|
|
|
0, 0, 1, 3, 7, 13, 23, 37, 58, 87, 128, 183, 259, 359, 493, 668, 898, 1194, 1578, 2067, 2693, 3484, 4485, 5739, 7313, 9270, 11705, 14714, 18431, 22995, 28598, 35439, 43787, 53929, 66238, 81120, 99096, 120732, 146746, 177930, 215267, 259849, 313022, 376282
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Number of non-isomorphic rank-2 matroids over S_n.
|
|
REFERENCES
|
Acketa, Dragan M. "On the enumeration of matroids of rank-2." Zbornik radova Prirodnomatematickog fakulteta-Univerzitet u Novom Sadu 8 (1978): 83-90. - N. J. A. Sloane, Dec 04 2022
|
|
LINKS
|
|
|
FORMULA
|
G.f.: -1/(1 - x)^2 + (1/(1 - x))*Product_{k>=1} 1/(1 - x^k). - Ilya Gutkovskiy, Aug 10 2018
|
|
MAPLE
|
a:= proc(n) option remember; `if`(n<2, 0,
combinat[numbpart](n)+a(n-1)-1)
end:
|
|
MATHEMATICA
|
With[{s = PartitionsP /@ Range[0, 40]}, MapIndexed[Total@ Take[s, First@ #2] - First@ #2 &, s]] (* Michael De Vlieger, Sep 04 2017 *)
With[{nn=50}, #[[2]]-#[[1]]&/@Thread[{Range[0, nn], Accumulate[PartitionsP[Range[0, nn]]]}]]-1 (* Harvey P. Dale, Sep 05 2023 *)
|
|
PROG
|
(GAP) List([1..41], n->Sum([1..n-1], k->NrPartitions(k)-1)); # Muniru A Asiru, Aug 10 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|