[seqfan] Mathematica code in A178300.

[L. Edson Jeffery]

I am trying to fix my Mathematica 10 program in A178300

https://oeis.org/draft/A178300

Can someone please explain why the following cell has to be evaluated twice
to get the correct triangle?


Quiet[Needs["Combinatorica`"], All];
Grid[Table[Length[Compositions[n, k]], {n, 10}, {k, n}]]


The above should not require loading the Combinatorica package, but it
seems to not work correctly without it. This may be a bug in Mathematica.

Thanks for any help.

Ed Jeffery