FC2ブログ

Welcome to my blog

[790] 漸化式で表される数列の和

ヤドカリ

ヤドカリ


'


[790] 漸化式で表される数列の和


 a1=1,a2=2,a3=1,an+3=(an+an+1)/an+2 (n=1,2,3,……) で表される数列{ an }において、

 初項から第790項までの和は?


★ 解答説明は こちら です。

スポンサーサイト



Comments 20

There are no comments yet.
ニリンソウ  
No title

いいですね~~本名より
別名の「ホカケソウ」のほうが似合ってる!
この紫と白の模様もいいですね。

ナイス

樹☆  
No title

おはようございます
カリガリソウ・・わたしも花びらが雁には見えません。
花の色が秋を告げてくれる清楚な青紫が大好きです。

ヤドカリ  
No title

> tsuyoshik1942様
鍵コメの解答、正解です
早速の解答を有難うございます。
具体的に何項かを求めてみれば分かりますね。

ヤドカリ  
No title

さっちゃんこさん、早速のコメントとナイス!を有難うございます。
カリガネソウ(雁金草)といいます。
当方でもそう見かける花ではないのですが、花の文化園で見ました。

ヤドカリ  
No title

> たけちゃん様
鍵コメの解答、正解です
早速の解答を有難うございます。
法則がわかれば簡単ですね。

ヤドカリ  
No title

ひとりしずかさん、早速のコメントとナイス!を有難うございます。
蕊が異様に長いですね。
紫の花弁が主役でなくなります。

ヤドカリ  
No title

ニリンソウさん、早速のコメントを有難うございます。
ホカケソウの方が似合いますか。
私が最初に覚えた名前はカリガネソウですので、
カリガネソウの方が馴染みがあります。
先日、ど忘れして名前が出ず、貴女のブログで思い出しました。

ヤドカリ  
No title

> pea*hb*zu様
鍵コメの解答、正解です
早速の解答を有難うございます。
少し調べてみると分かる問題ですね。

ヤドカリ  
No title

樹ちゃん、早速のコメントとナイス!を有難うございます。
見方はいろいろですが、私も雁とは結びつきません。
咲き出すと青紫の花弁が目立ちます。

ヤドカリ  
No title

> sarao様
鍵コメの解答、正解です
早速の解答を有難うございます。
少し調べてみると分かる問題ですね。

ヤドカリ  
No title

> Nemo様
鍵コメの解答、正解です
早速の解答を有難うございます。
2~3行目は、調べてみると簡単に分かりますね。

ヤドカリ  
No title

> uch*n*an様
鍵コメの解答、正解です
早速の解答を有難うございます。
S(n)={□+|□|(-1)^n}/16 の形にまとまりますが、
無理やりですので、感心しません。
一般的に解くのは私も無理な感じがして考えていません。

ヤドカリ  
No title

> スモークマン様
鍵コメの解答、正解です
解答を有難うございます。
少し調べてみると分かる問題ですね。

ヤドカリ  
No title

> sbr*d4*5様
鍵コメの解答、正解です
解答を有難うございます。
3~4行目は、調べてみると簡単に分かりますね。

ヤドカリ  
No title

> ftt*m*28様
鍵コメの解答、正解です
解答を有難うございます。
一般の第k項までの和もその通りです。

ヤドカリ  
No title

> 石原ゼミ様
鍵コメの解答、正解です
解答を有難うございます。
数列の構成が分かれば簡単ですね。

ヤドカリ  
No title

uch*n*anさん、鍵コメントを有難うございます。
a,b の 大きい方は (a+b+|a-b|)/2
a,b の 小さい方は (a+b-|a-b|)/2
で表されますので、まとめただけです。
正の数ですので必要なかったのですが、
この流れで絶対値をつけてしまいました。

ヤドカリ  
No title

> ???様
初めまして。鍵コメの解答、正解です
解答を有難うございます。
ところで、
貴殿はどのようにしてこのブログをお知りになられたのかを教えて頂ければ幸いです。

???  
No title

浮浪の館

Option Explicit
Sub Macro1()
Dim n As Integer
For n = 1 To 790
If n <= 3 Then
Cells(n, 2).Value = -(n = 1 Or n = 3) - 2 * (n = 2)
Else
Cells(n, 2).Value = (Cells(n - 3, 2).Value + Cells(n - 2, 2).Value) / Cells(n - 1, 2).Value
End If
Next n
Cells(1, 1).Value = "=SUM(B1:B790)"
End Sub

ヤドカリ  
No title

???さん、鍵コメントを有難うございます。
このブログを知られたのは、浮浪の館でしたか。
ところで、
このブログは手計算でできる問題を出題しています。
数値計算をするのに、時には電卓の使用もありますが、
プログラムやエクセルの使用は
なるべく避けて頂きたく思います。