٥륯åĥ
19+22+43+46=130
ιפ3ܿʤΤǻĤޥ3dzä1;
оǾäΤȺǽμ4ĤĤޤ
310ڡ 0:07:42 44243
٥륯åĥ
ʤߤ˰ˤۤƱ꤬äΤפФƲ򤭤ޤ
310ڡ 0:09:39 44244
٥륯åĥ
ǸΤҤȤ˺Ƥޤ19DzǽʤΤºݤ¤٤ƳǧƽλǤ
ǡϿޤäƤʤƽǤޤǤ
310ڡ 0:13:23 44245

http://www.sansu.org/used-html/index947.html
310ڡ 0:15:39 44246

#44246
ɤǸȤȻפä...

ʬμդʤΤȤ狼ޤʾС
310ڡ 0:21:53 44247
ǯ
947ǡ88ϡ#43759˽񤭹ΤǤ
꤫2ޥĤäơ444
Ʊ褦˴ְ㤨ơޥθĿ4ĤäƤޤ⤷Ƥʤʥ
310ڡ 1:12:18 44248
⡼ޥ
̵Ȼפޤ^^;
#44243 ٥륯å
>ιפ3ܿʤΤǻĤޥ3dzä1;
>оǾäΤȺǽμ4ĤĤޤ

ʤۤɤǤ!!
ʤ...оΤ4Ĥ=130ܿ Ǥ͡
¨ ^^;v 310ڡ 1:15:12 44249

ºݤҤȤĤäƤߤƣĤäΤǡо飱Ĥ뤫㣱Ǥ⤳ʳϤʤΤʤȡɤǤ˹ͤȤʤȻפʤ⸫Ĥ줺äƤߤȡ
䤬ꡢΤȤֱ¤ܿפ˴ȤפФޤʥФʤȤäޥʥ׹ͤ˵˳뤽ǤʤΤɤʤǤ
310ڡ 8:41:34 44250
Τ
¸оФޤ
̧̻ԡ 310ڡ 8:56:07 44251
ϺĹ
ʤȤʤ4ĤˤʤΤʤäƴǡ130ǧڡȯä򤷤
ʤȸ櫓ǤϤޤ󤬷빽ΤǤ

310ڡ 8:57:42 44252
uchinyan
Ϥˤϡơϡ
ǽ˿ޤ򸫤ơءݤꡤȻפäΤǤʸɤǡʤ꤬ä󡤤ȤǤ
פȻפޤ꤬򤱤ͤϰפʡȻפޤǤʤͤ鸫οͤˤ񤫤ʤȤפޤ
Ψ⤤Τϡ򤱤ʤͤϴǤŤ餯򤱤ͤϴְ㤤ˤΤǤ礦
ʴǡ

(ˡ1)ޤǤ礦
ޣ 8 * 8 Υޥܤ˿ޣ 1 * 3 ĹΥޥܤĤˤƤⲣˤƤĹΥޥܤʤ¤ 3 ܿǤ
ǡĹǽʸ¤ߤͤ᤿ʤ¤ 3 ܿǤ
ǡ8 * 8 Υޥܤο 1 64 ¤ (64 * 65)/2 = 2080 = 3 * 693 + 1 3 dzä 1 ;ʤΤǡ
Ĥ룱Ĥο 3 dzä 1 ;ǤʤФʤޤ
ޤϡ岼90ž˴ؤоΤʤΤǡ֤¸ǽʤФоΰư֤¸ǽǤ
ǡ3 dzä 1 ;ǤäƤоΰưˤäб֤ο 3 dzä 1 ;ǤʤȻĤʤȤˤʤޤ
ĤޤꡤĤϡ3 dzä 1 ;Ǥäơоΰưˤäб 3 dzä 1 ;ȤȤˤʤޤ
ξŪĴ٤ȡ19224346Ǥ
ơΤɤοǤ⣱ĻĤ¾Τ٤ƤĹʤ֤¸ǽʤΤ϶Ū˾äƤߤʬޤ
ǡĤ룱Ĥϡ19224346Ȥʤޤ
Ǥϡ¤Τǡϡ19 + 22 + 43 + 46 = 130ˤʤޤ

(ˡ2)ɤ̯Ǥϻ
ޣ 8 * 8 ΥޥܤΤ줾ο 1 ƥޥܤο 0 63 Ȥ
Τ줾Ф (8 dzä, 8 dzä;) ȤȤޤȡ
(0,0) (0,1) (0,2) (0,3) (0,4) (0,5) (0,6) (0,7)
(1,0) (1,1) (1,2) (1,3) (1,4) (1,5) (1,6) (1,7)
(2,0) (2,1) (2,2) (2,3) (2,4) (2,5) (2,6) (2,7)
(3,0) (3,1) (3,2) (3,3) (3,4) (3,5) (3,6) (3,7)
(4,0) (4,1) (4,2) (4,3) (4,4) (4,5) (4,6) (4,7)
(5,0) (5,1) (5,2) (5,3) (5,4) (5,5) (5,6) (5,7)
(6,0) (6,1) (6,2) (6,3) (6,4) (6,5) (6,6) (6,7)
(7,0) (7,1) (7,2) (7,3) (7,4) (7,5) (7,6) (7,7)
ǤפˡؤǤȤκɸǤ͡
ȤФơޣ 1 * 3 ĹΥޥܤĤˤƤⲣˤƤȤκ줾¤ (3 ܿ, 3 ܿ) Ǥ
ǡĹǽʸ¤ߤͤ᤿ʤȤ¤ (3 ܿ, 3 ܿ) Ǥ
ǡ8 * 8 ΥޥܤȤκΤ줾¤ ((7 * 8)/2 * 8,(7 * 8)/2 * 8) = (224,224) ǡ
(3 dzä 2 ;, 3 dzä 2 ;) Ǥ
ǡĤ룱Ĥ (3 dzä 2 ;, 3 dzä 2 ;) ǤʤФʤޤ
Τ褦Ȥϡ(2,2)(2,5)(5,2)(5,5)ǤϡοǤϡ19224346Ǥ
ơΤɤοǤ⣱ĻĤ¾Τ٤ƤĹʤ֤¸ǽʤΤ϶Ū˾äƤߤʬޤ
ǡĤ룱Ĥϡ19224346Ȥʤޤ
Ǥϡ¤Τǡϡ19 + 22 + 43 + 46 = 130ˤʤޤ

(ˡ3)˿
βˡϡ ܡʥꤵ ˶Ƥä Analytic Combinatorics ˴ŤΤǤ
(ˡ2)ȤƳ(i,j) Ф x^i * y^j Ȥͤޣ 8 * 8 ΥޥܤФơ
P(x,y) = x^i * y^j = (1 + x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7)(1 + y + y^2 + y^3 + y^4 + y^5 + y^6 + y^7)
Ȥ¿༰ޤȡޣ 1 * 3 ĹΥޥܤ֤μϡ
Ĥʤ f(x,y) = x^k * y^m * (1 + x + x^2)ʤ g(x,y) = x^k * y^m * (1 + y + y^2)
Ƚ񤱤ޤơĹ 8 * 8 ʤޥĤȤΤϡ
P(x,y) = f(x,y) + g(x,y) + x^i * y^j
Ƚ񤱤ȤȤǤ
ǡؤ 1 Σ躬ΤʣǿΤΡ1 + + ^2 = 0Ȥ
x = ءy = ءȤȡP(x,y) = ^1f(x,y) = 0g(x,y) = 0, ^(i+j) = ^1i + j 1 (mod 3)
x = ءy = ^2ȤȡP(x,y) = ^0f(x,y) = 0g(x,y) = 0, ^(i+2j) = ^0i + 2j 0 (mod 3)
Ȥʤäơi j 2 (mod 3)Ǥ
ϡ(ˡ2)ƱǤ

ޤȤƤ(ˡ1)ּʡɸο(ˡ2)Τޤ
(ˡ3)ϻ䤬 Analytic Combinatorics 򤷤Ƥ뤫γǧǡͷӤǤޤǤ⤴ͤǤ
311ʶ 15:49:07 44253
uchinyan
ǼĤɤߤޤ


ʲεҤϡ⤽ϻ伫ȤٶΥ˲᤮ʤΤǤ
޳ѤʤΤǤͤޤǤˤȻפäƸΤǤ
Ȥ⤢äơˡʬϻ F.A.Q. ΡֻϰϡפεҤ򻲹ͤˡ
ĿͤǤиǼŪ˹ԤäƤΤǤäơҴŪʤΤǤϤޤ
ޤǤ⤴ͤǤ餺

ϡ󡤣dzä;ܤ롤ȤˡΤ褦Ǥ͡
ʤۤɡ947Ǥ鸫äΤǤ񤷤äƤޤ
ΤȤϤȵޤ͡
310ڡ 14:34:54 44255
ˤ⡼
礶äѤǼʬǤǼԤäƤʤˡʤΤǤ¦Σߣԡ48ˤ򣱡ߣΥơ濴ΣߣΥΤ;餻ˡȤޤ;룱θ䤬19224346ȤʤäǤ
ǼäƤʤΤǡηǼĤǤβˡ¸ʬٶƤĺޤ
311ʶ 0:27:47 44256
ϥ饮㡼ƥ
ȯǤ줿Τʤ

ˡ򸫤ƹͤޤ
311ʶ 5:51:07 HomePage:湩ؤ˥44257
fumio
̵ƤޤǤʾС
5ڤߤˤƤޤǤϤǤϡ
311ʶ 14:04:19 44258
ߤ
ߣΥߤͤξϡפΤ褦ߤɤʬ
ȤˡȤޤ͡Ϥˤʤä

£ã£ã
£ã£ã£
ã£ã£ã
£ã£ã
£ã£ã£
ã£ã£ã
£ã£ã
£ã£ã£

äƴ˵򿶤ȡߣΥɤ֤Ƥ£äĤ
ޤޤޤΣޥǤϣ¤¿Τǡ;餻뤳ȤΤǤ
ޥϣ¤񤫤ƤޥΤߡ

äƣ¤񤫤Ƥޥ;ޥˤʤϤäƹͤΤ
ºݤˤϣ¤ΥޥǤ;ޥˤʤʤȤ⤢褦ǡ

֣ȣäΥޥ;餻뤳ȤǤʤפȤʤ餳ǤΤǤ礦
Ǥ礦
311ʶ 16:54:58 44259
Ϸʼ
פ֤Ƥޤ
ޥܤͤޤ
ݣᣱʿζǤ
ܣᣵʳ¦Ǥ
ݣᣳʣγ٤Ǥ
ޣΥޥޤ
ޥܤưޤ
飴ĤζιפȤʤޤ
ʡ 312ڡ 9:57:57 44260
ޤ륱
ߤ󤵤ˡǤ͡

¤ΰ֤Ϥʴ









㤨С򺸱ȿžȡ









ɤʬѤƤ⡢ߤͤʤ꤬ѤϤϤޤ
ȤȤǡΤɤξˤƤB꤬äƤΤϤɤǤ礦
313 10:21:38 MAIL:take4310@mobile.email.ne.jp 44261
⡼ޥ
#44259 ߤ󤵤ο
3ξ;A=1, B=2, C=3ƱǤ ^^
οޤžƤƱʸ()Ǥ꤬֤ˤʤ櫓Ǥ͡
٥륯åĥˡƱͤιͤǤ͡
¨ ^^;v 313 10:42:07 44262
٥륯åĥ
#44262⡼ޥ󤵤
ǷǼĤˤäˡʤΤǡˡȤǤϤʤΤǤ
ɬ׾Ƚʬ򤷤ä̤Ƥʤ¤ȤǤ͡
313 12:17:26 44263

30äDz򤱤Ƥޤޤ
⤽130ܿλǿϸ¤Ƥޤ͡
313 18:01:48 44264
ߤ
#44261ˤޤ륱󤵤
žƤߤͤԲǽʾѤʤ
ƤߤгΤʤɡǤˤʤäƤΤǵŤޤǤ
Ȱäơ֤ɤäƤ뤫פλŦΤǡٶˤʤޤ͡
꤬Ȥޤ
314ʷ 1:00:38 44265
???
Dim n As Integer, a(21) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
For n = 1 To 28
If n <= 4 Or (9 <= n And n <= 12) Or (17 <= n And n <= 20) Or 25 <= n Then
a(0) = 0 : Call saiki(1)
End If
Next n
End Sub
Sub saiki(ByVal m As Integer)
Dim b(64) As Integer, x As Integer, y As Integer, dame As Integer, j As Integer
a(m) = 1 '1:, 2:
While a(0) = 0 And a(m) <= 2
x = 0 : y = 0
For j = 1 To 64 : b(j) = 0 : Next j
b(n) = 1
For j = 1 To m - 1
While b(f(x, y))
x = x + 1 : If x > 7 Then x = 0 : y = y + 1
Wend
If a(j) = 1 Then
b(f(x, y)) = 1 : b(f(x + 1, y)) = 1 : b(f(x + 2, y)) = 1
x = x + 3 : If x > 7 Then x = 0 : y = y + 1
Else
b(f(x, y)) = 1 : b(f(x, y + 1)) = 1 : b(f(x, y + 2)) = 1
x = x + 1 : If x > 7 Then x = 0 : y = y + 1
End If
Next j
While b(f(x, y))
x = x + 1 : If x > 7 Then x = 0 : y = y + 1
Wend
If a(m) = 1 Then
If x > 5 Then
dame = 1
ElseIf b(f(x + 1, y)) + b(f(x + 2, y)) > 0 Then
dame = 1
Else
dame = 0
End If
Else
If y > 5 Then
dame = 1
ElseIf b(f(x, y + 1)) + b(f(x, y + 2)) > 0 Then
dame = 1
Else
dame = 0
End If
End If
If dame = 0 Then
If m < 21 Then
Call saiki(m + 1)
Else
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = n
For j = 1 To 21
Cells(Cells(1, 1).Value, j + 2).Value = a(j)
Next j
a(0) = 1
End If
End If
a(m) = a(m) + 1
Wend
End Sub
Private Function f(ByVal x As Integer, ByVal y As Integer) As Integer
f = y * 8 + x + 1
End Function
314ʷ 14:25:56 44266