オンライン整数列大辞典の
A000111(http://oeis.org/A000111/list)
と比較し、答え合わせしてみる。
A000111(http://oeis.org/A000111/list)
と比較し、答え合わせしてみる。
def A000111(n)
e_ary = [1]
ary = [1]
n.times{|i|
new_ary = ary.unshift(0)
(1..i + 1).each{|i| new_ary[i] += new_ary[i - 1]}
ary = new_ary.reverse
e_ary << ary[0]
}
e_ary
end
ary = A000111(26)
# OEIS A000111のデータ
ary0 =
[1,1,1,2,5,16,61,272,1385,7936,50521,353792,
2702765,22368256,199360981,1903757312,19391512145,
209865342976,2404879675441,29088885112832,
370371188237525,4951498053124096,
69348874393137901,1015423886506852352,
15514534163557086905,246921480190207983616,
4087072509293123892361]
# 一致の確認
p ary == ary0
0 件のコメント:
コメントを投稿
注: コメントを投稿できるのは、このブログのメンバーだけです。