過去ログ
mathematica使い
漸化式を立ててmathematica
a[n_] := 4^(n - 2) - (a[n - 2] + a[n - 1] +
Sum[a[k] 4^(n - k - 2), {k, 2, n - 3}]); a[2] = 1;
a[3] = 3; Table[a[n], {n, 2, 13}]
数学的にはa[4]=12を与えないと矛盾しますが計算機の特徴上無視できました。
2月12日（木） 1:35:30
33884
過去問題一覧へ戻る