Skip to main content
1 of 2
bb94
  • 3.7k
  • 14
  • 19

Perl 6, 114 bytes

my @b=1;for 1..+slurp() {@b.push: 1-[+] (^$^m).map: {([*] $m+1-$_..$m)*@b[$_]/($m+1-$_)/([*] 1..$_)}};say @b[*-1];

I could have made it shorter, but that would sacrifice lots of speed.

bb94
  • 3.7k
  • 14
  • 19