Revision History for A074761
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
| |
| |
| |
|
|
#34 by Susanna Cuyler at Fri Aug 03 08:16:05 EDT 2018
| |
| |
| |
|
|
#33 by Gus Wiseman at Thu Aug 02 10:59:49 EDT 2018
| |
| |
| |
|
|
#32 by Gus Wiseman at Wed Aug 01 18:34:00 EDT 2018
|
|
| CROSSREFS
|
Cf. A000837, A067538, A074761, A143773, A285572, A290103, A305566, A316429, A316431, A316432, A316433, A317624.
|
| |
| |
|
|
#31 by Gus Wiseman at Wed Aug 01 18:32:39 EDT 2018
|
|
| CROSSREFS
|
Cf. A000837, A067538, A074761, A143773, A285572, A290103, A305566, A316429, A316431, A316432, A316433, A317624.
|
| |
| |
|
|
#30 by Gus Wiseman at Wed Aug 01 17:16:38 EDT 2018
|
|
| EXAMPLE
|
The a(15) = 5 partitions are (15), (5,3,3,3,1), (5,5,3,1,1), (5,3,3,1,1,1,1), (5,3,1,1,1,1,1,1,1). - Gus Wiseman, Aug 01 2018
|
|
| MATHEMATICA
|
Table[Length[Select[IntegerPartitions[n], LCM@@#==n&]], {n, 50}] (* Gus Wiseman, Aug 01 2018 *)
|
|
| CROSSREFS
|
Cf. A000837, A067538, A074761, A143773, A285572, A290103, A305566, A316429, A316431, A316432, A316433.
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#29 by Bruno Berselli at Mon Feb 29 10:45:22 EST 2016
| |
| |
| |
|
|
#28 by Jean-François Alcover at Mon Feb 29 10:35:25 EST 2016
| |
| |
| |
|
|
#27 by Jean-François Alcover at Mon Feb 29 10:35:20 EST 2016
|
|
| MATHEMATICA
|
a[n_] := With[{s = Sum[MoebiusMu[n/i]*1/Product[1-x^j, {j, Divisors[i]}], {i, Divisors[n]}]}, SeriesCoefficient[s, {x, 0, n}]]; Array[a, 80}] (* Jean-François Alcover, Feb 29 2016 *)
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#26 by Alois P. Heinz at Thu Apr 02 11:12:48 EDT 2015
| |
| |
| |
|
|
#25 by Alois P. Heinz at Thu Apr 02 07:25:40 EDT 2015
| |
| |
| |
|
|
