200302

Crystal


A330432

https://crystal-lang.org/api/0.33.0/Array.html

上記を参考にした。

def a(n)
  cnt = 0
  (2..n - 1).to_a.each_permutation{|i|
    cnt += 1 if (2..n - 1).all?{|j| i[j - 2] * j >= n}
  }
  cnt
end

def a330432(n)
  (0..n).map{|i| a(i)}
end

p a330432(15)

出力結果
[1, 1, 1, 1, 2, 4, 18, 54, 384, 1920, 15000, 108000, 1270080, 8890560, 126443520, 1440270720]