kasama
եܥʥå
106ڡ 0:17:21 38424
cyclone
ΤȤ̤
ΤȤ̤
ΤȤ̤
ΤȤ̤
ΤȤ̤

ޤǤäƴǥեܥʥå
106ڡ 0:19:06 38425

Ωˤ٤礦Ĥؤ뤷ʤ
ȤȤǡڥθĿǾʬƿ夲Ƥޤޤ
褯ͤեܥʥåǤ͡
14ʤγʤ1ʤ2ʤФΤƱ
ȤǡĤ50ͤˤʤޤ
106ڡ 0:21:01 38426
㡼ߡ
1֤1 1 縺ä
1֤2 2֤1 2 縺ä
ȤȤǡեܥʥåǤ͡

#38426
ǤȤޤ
106ڡ 0:23:54 38428
ͤ
Τ׻ǣޤǤΥѥĴ٤
եܥʥåʤȻפäޤ
裲롼ס 106ڡ 0:26:03 HomePage:38429
ϻǯ
ʤȤʤʡˤDz򤭤ޤڣۢ1̤ڣ̤ۢڣ̤ۢڣ̤ۢꡡȤʤäΤǡľ˥եܥʥåȤƼޤɤʤʤʤΤƤޤ󤫡ߤޤ󡣤Ĥեܥʥå󤬤褯ʬʤ
106ڡ 0:27:48 38430

ޤ20ʬС
ƱǥڥθĿǾʬ
1+8294106ܡĤߤʼ䡹³
610եܥʥåäȤϡ
106ڡ 0:28:42 38431
ͣ.ǥ
Ʊ褦ˡեܥʥåȤʤ뤳Ȥ˵դΤǤ֤ꤹޤ
#38426 ǤȤޤ
106ڡ 0:34:39 38432
֤
ϤᡢΤʤɤͤƤޤեܥʥå˵ŤޤǤ˻֤äƤޤޤ

㤨Сɤ5ΤȤ
5Υɤ5ȢäƤ碪14ΥɤΤߤͤɤ
5Υɤ4Υɤؤ碪13ΥɤΤߤͤɤ

ʾꡢɤ5ξϡɤ4ξȥɤ3ξפɤȤˤʤޤΤ褦ˤƥեܥʥå˵Ťޤ
106ڡ 0:41:46 38433
abcba@jugglermoka
1ȢɬƱΤؤˤʤ롣ɤϥڥ70ξ­ޤͤƱˡȻפޤ
106ڡ 0:44:07 38434
Ȥ
basic󤵤ޤ

for a=1 to 2
for b=1 to 3
if b=a then goto 130
for c=2 to 4
if c=a or c=b then goto 120
for d=3 to 5
if d=a or d=b or d=c then goto 110
for e=4 to 6
if e=a or e=b or e=c or e=d then goto 100
for f=5 to 7
if f=a or f=b or f=c or f=d or f=e then goto 90
for g=6 to 8
if g=a or g=b or g=c or g=d or g=e or g=f then goto 80
for h=7 to 9
if h=a or h=b or h=c or h=d or h=e or h=f or h=g then goto 70
for i=8 to 10
if i=a or i=b or i=c or i=d or i=e or i=f or i=g or i=h then goto 60
for j=9 to 11
if j=a or j=b or j=c or j=d or j=e or j=f or j=g or j=h or j=i then goto 50
for k=10 to 12
if k=a or k=b or k=c or k=d or k=e or k=f or k=g or k=h or k=i or k=j then goto 40
for l=11 to 13
if l=a or l=b or l=c or l=d or l=e or l=f or l=g or l=h or l=i or l=j or l=k then goto 30
for m=12 to 14
if m=a or m=b or m=c or m=d or m=e or m=f or m=g or m=h or m=i or m=j or m=k or m=l then goto 20
for n=13 to 14
if n=a or n=b or n=c or n=d or n=e or n=f or n=g or n=h or n=i or n=j or n=k or n=l or n=m then goto 10
print a;b;c;d;e;f;g;h;i;j;k;l;m;n
10 next n
20 next m
30 next l
40 next k
50 next j
60 next i
70 next h
80 next g
90 next f
100 next e
110 next d
120 next c
130 next b
140 next a
end

f9610̤
˭ԡ 106ڡ 0:54:35 MAIL:fttnm528@ybb.ne.jp 38435
⡼ޥ
äȵŤޤ...^^;...
Ȣ1äƤˤϤŤΤǤ...

ǹͤޤ!!
f(14)=f(7)^2+f(6)^2=21^2+13^2=610
f(7)=f(3)^2+2*f(2)*f(3)=3^2+2*2*3=21
f(6)=f(3)^2+f(2)^2=3^2+2^2=13
106ڡ 1:18:19 38436

Ĥξ硢֣ݣĤλˣ򤯤äĤˡפȡ֣ȣݣؤƣݣĤλˤäĤˡפΣѥ󤬤ΤǡʣĤξˡʣݣĤξˡܡʣݣĤξˤȥեܥʥåˤʤޤ򸫤ƿ󤫤ʤȤäȤ⤫֤褦ˤʤꡢ³ƤƤäƬΥӤƤʤȼ­ƤޤäȤ⤳θ­Ǵְ㤨Ƥޤˣܤ줿ΤǤ
106ڡ 5:45:50 38437
uchinyan
Ϥˤϡơϡ
ϡȤƤɸŪʤʴǡ

(ˡ1)
1 n Υɤ n ĤȢξ a(n) ̤Ȥޤ
n Υɤ n-1 n Ȣ뤳ȤǤޤ
n Ȣ줿ȤˤϡĤ꤬ 1 n-1 Υɤ n-1 ĤȢʤΤ a(n-1) ̤ꡤǡ
n-1 Ȣ줿Ȥˤϡn Ȣˤ n-1 ʤΤǡĤ꤬ 1 n-2 Υɤ n-2 ĤȢˤʤä a(n-2) ̤ꡤǤ
Ĥޤꡤa(n) = a(n-1) + a(n-2) ˤʤޤa(2) = 2a(1) = 1Ǥ
Τ a(14) ʤΤǡ
a(1) = 1a(2) = 2a(3) = 3a(4) = 5a(5) = 8a(6) = 13a(7) = 21a(8) = 34a(9) = 55a(10) = 89
a(11) = 144a(12) = 233a(13) = 377a(14) = 610
ǡ610 ̤ꡤˤʤޤ

(ˡ2)
㤨С8 ΥɤͤޤΥɤ 789 Ȣˤ뤳ȤǤޤ
8 Υɤ 8 Ȣäϡꤢޤ
8 Υɤ 7 Ȣäϡ8 Ȣˤ 7 9 Υɤޤ
⤷ 8 Ȣ 9 ΥɤäȤȡ
7 Υɤ 6 Ȣˡ6 Υɤ 5 Ȣˡ2 Υɤ 1 Ȣˡ뤷ʤ1 ΥɤȢޤ
ǡ8 Ȣˤ 7 Υɤ뤷ꤨޤ
8 Υɤ 9 ȢäƱͤǡ8 Ȣˤ 9 Υɤ뤷ꤨޤ
¾ΥɤǤƱͤʤΤǡɡɤƱֹȢ뤫ƱΤֹȥ뤫Τ줫ˤʤޤ
ǡοϡֹ椬ƱȥȤ¤٤οʤޤ
Τǥɤ 14 ʤΤǡֹ椬 (Ʊ) βϡ
(14,0)(12,1)(10,2)(8,3)(6,4)(4,5)(2,6)(0,7)
ꡤοϡ줾¤٤ο¤ˤʤäơ
14C0 + 13C1 + 12C2 + 11C3 + 10C4 + 9C5 + 8C6 + 7C7
= 1 + 13 + 66 + 165 + 210 + 126 + 28 + 1 = 610 ̤
ˤʤޤ
ͥνȡ 106ڡ 11:05:58 MAIL:uchi@sco.bekkoame.ne.jp 38438
uchinyan
ǼĤɤߤޤ

#38426#38431#38434#38438(ˡ2)
ɤֹȢֹκ 1 DzǽʤΤϡƱֹ뤫٤礦Ĥؤ뤷ʤ
ȤȤܤƲǽʾĴ٤Ʋ򤯲ˡ

#38428#38432#38433#38437#38438(ˡ1)
1 Ȣ 1 Τϰĸä 1 Ȣ 2 Τϥ 2 Ȣ 1 뤷ʤΤĸä
ȤȤƳƲ򤯲ˡϥեܥʥåΤΤˤʤޤ

#38436
ޤͿ줿狼顤Τξοϡ
1 7 Ȣ 1 7 ꡤ 8 14 Ȣ 8 14 礫
1 6 Ȣ 1 6 ꡤ 7 Ȣ 8 ꡤ 8 Ȣ 7 ꡤ 9 14 Ȣ 9 14 硤Τ줫
ܤʲ 1 7 Ȣ 1 7 1 6 Ȣ 1 6ʤɤƱͤ˹ͤơƳƲ򤯲ˡ
餯ͤǤϡ#38426ʤɤȤäƤȻפޤ
ä򤤲ˡǤ

#38424#38425#38429#38430
Ĵ٤ʤɤơեܥʥå󤫤ʡͽۤƲ򤯲ˡ

#38435
ץˤˡ
ͥνȡ 106ڡ 11:50:55 MAIL:uchi@sco.bekkoame.ne.jp 38439
???
Option Explicit
Dim a(14) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
Range("A1").Select
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
a(n) = Application.max(1, n - 1)
While a(n) <= Application.Min(n + 1, 14)
If onaji(n) = 0 Then
If n < 14 Then
Call saiki(n + 1)
Else
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 14
Cells(Cells(1, 1).Value, j + 1) = a(j)
Next j
Range("B" & Cells(1, 1).Value).Select
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function onaji(ByVal n As Integer) As Integer
Dim j As Integer
onaji = 0
j = 1
While onaji = 0 And j < n
If a(j) = a(n) Then
onaji = 1
Else
j = j + 1
End If
Wend
End Function
106ڡ 13:56:10 38440

Ĥ򤢤꤬Ȥޤ
ֲפοޤɽƤ餦ȤϲǽǤ礦
106ڡ 14:09:31 38441
ߡ
󥯤褯ڤƤǤ͡ʤ

ƻƱ꤬ä褦ʵޤ͡
106ڡ 15:11:20 38442
imai
եܥʥåˤʤߤǤ͡
106ڡ 15:46:31 38443
ϥ饮㡼ƥ
ο䤷ʤץǷ׻եܥʥå󤬽ФƤ
ͤ狼ꤽǶᡢФΤDzΤݤˤʤäƤ
ԡ 106ڡ 18:09:32 HomePage:湩ؤ˥38444

ο϶Ǥ
٤礦ȢɤΤ߸򴹲ǽ
Ȣȥɤֹ椬٤ưעעסע٤԰פѥ夲ޤ
եܥʥåȤϡ
106ڡ 19:05:31 38445
aibo
Ǥ
ϿǤ͡
123581321345589144233377610
狼ʤäΤǡ
Ȣ򣱤Ĥξ礫ͤƿ夲Ƥȵ§ȯޤ
ε§ȯȤϴǤ
򤱤ƴ򤷤
107ʶ 1:12:33 HomePage:aibo38446
ߡ
졤ޤǵȹˤʤޤ͡ġ
ɤäʤ
109 16:58:29 38447
⡼ޥ
#38447
ޤǤϽФ...f(7) η׻ˡޤˤ狼ʤʤä...^^;;...?

f(1)=1
f(2)=2
f(3)=3!=6
f(4)=f(2)^2+2*f(3)-2=14
f(5)=f(2)^2+f(3)+2*f(2)*f(3)-3=31
f(6)=f(3)^2+f(2)^2+f(4)+2*f(3)*f(2)-5=73
f(7)=???

1,2,6,14,31,73,172,400,...äƤʿˤʤ褦Ǥ...^^;...v
饤ŵ ...
A002524Number of permutations of length n within distance 2 of a fixed permutation.
(Formerly M1600 N0626)
109 23:27:13 38448
uchinyan
#38447#38448
ΤݤˤϤʤޤϳưפ˺ޤ͡
1 nȢ 1 n Ȥơ i Ȣ j Τ i -> j ʤɤȽ񤭡
n -> n a(n) ̤ꡤn -> n-1 b(n) ̤ꡤn -> n-2 c(n) ̤ꡤΤ s(n) ̤ꡤȤС
a(n) = (n->n) = s(n-1)
b(n) = (n->n-1, n-1->n) + (n->n-1, n-2->n) = s(n-2) + (s(n-2) - c(n-2)) = 2 * s(n-2) - c(n-2)
c(n) = (n->n-2, n-1->n, n-2->n-1) + (n->n-2, n-1->n, n-3->n-1) + (n->n-2, n-2->n, n-1->n-1) + (n->n-2, n-2->n, n-3->n-1)
= s(n-3) + (s(n-3) - c(n-3)) + s(n-3) + s(n-4) = 3 * s(n-3) + s(n-4) - c(n-3)
s(n) = a(n) + b(n) + c(n)

a(1) = 1, b(1) = 0, c(1) = 0, s(1) = 1
a(2) = 1, b(2) = 1, c(2) = 0, s(2) = 2
a(3) = 2, b(3) = 2, c(3) = 2, s(3) = 6
a(4) = 6, b(4) = 4, c(4) = 4, s(4) = 14
ǤޤǤϡȤʤ⡤ɤϡƻ˿ޤϾ嵭ǡ
a(5) = 14, b(5) = 10, c(5) = 7, s(5) = 31
a(6) = 31, b(6) = 24, c(6) = 18, s(6) = 73
a(7) = 73, b(7) = 55, c(7) = 44, s(7) = 172
a(8) = 172, b(8) = 128, c(8) = 100, s(8) = 400
a(9) = 400, b(9) = 300, c(9) = 232, s(9) = 932
a(10) = 932, b(10) = 700, c(10) = 545, s(10) = 2177
a(11) = 2177, b(11) = 1632, c(11) = 1272, s(11) = 5081
a(12) = 5081, b(12) = 3809, c(12) = 2964, s(12) = 11854
a(13) = 11854, b(13) = 8890, c(13) = 6918, s(13) = 27662
a(14) = 27662, b(14) = 20744, c(14) = 16148, s(14) = 64554
a(15) = 64554, b(15) = 48406, c(15) = 37679, s(15) = 150639

ʤ m ξͤʤޤ̤ˤDz򤯤ΤϤʤ񤷤Ǥ
ͥνȡ 1010ʷ 15:25:28 38449

եܥʥåˤʤǤ

ƻ˼ޤĴ٤ޤ
14֤ΥɤɤֹȢ뤫ޤɽޤ
ȣ־ʤݣݣݣݣݣݣݣݣݣݣݣݣݣȤʤꡢ餵ΤܤäƥɤֹʳֹȢѥ夲ޤ
ⶽ̣§ޤ
1012ʿ 21:35:38 38450