|
|
|
|
|
|
|
|
|
#28 by Susanna Cuyler at Mon May 10 07:40:34 EDT 2021
|
|
|
|
|
|
|
|
#27 by Jean-François Alcover at Mon May 10 02:26:11 EDT 2021
|
|
|
|
|
|
|
|
#26 by Jean-François Alcover at Mon May 10 02:25:55 EDT 2021
|
|
| MATHEMATICA
|
(* Second program: *)
b[n_, i_, g_] := b[n, i, g] = If[n == 0, If[g == 1, 1, 0], If[i < 2, 0, b[n, i - 1, g] + b[n - i, Min[n - i, i], GCD[g, i]]]];
a[n_] := b[n, n, 0];
Array[a, 60] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#25 by N. J. A. Sloane at Fri Nov 20 17:15:47 EST 2020
|
|
|
|
|
|
|
|
#24 by Gus Wiseman at Fri Nov 06 18:01:37 EST 2020
|
|
|
|
|
|
|
|
#23 by Gus Wiseman at Fri Nov 06 18:00:49 EST 2020
|
|
| CROSSREFS
|
A000740 is the ordered version allowing 1's.
A000740 counts relatively prime compositions.
|
|
|
|
|
|
|
#22 by Gus Wiseman at Fri Nov 06 17:56:33 EST 2020
|
|
| EXAMPLE
|
The a(5) = 1 through a(12) = 7 partitions: (empty column indicated by dot):
|
|
|
|
|
|
|
#21 by Gus Wiseman at Fri Nov 06 17:54:49 EST 2020
|
|
|
|
|
|
|
|
#20 by Gus Wiseman at Fri Oct 30 11:55:10 EDT 2020
|
|
|
|
|
|
Discussion
|
| Fri Nov 06
| 15:30
| OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review. If it is ready for review, please
visit https://oeis.org/draft/A302698 and click the button that reads
"These changes are ready for review by an OEIS Editor."
Thanks.
- The OEIS Server
|
|
|
|
|
|
|
#19 by Gus Wiseman at Thu Oct 29 07:49:02 EDT 2020
|
|
| COMMENTS
|
The Heinz numbers of these partitions are given by A302697. - _Gus Wiseman_, Oct 29 2020.
|
|
|
|
|
|
