¤κǾ32äƤȤõƤޤĤäɤäǤ
ϵ塡 816ڡ 0:06:35 39694

פ֤Ǥ
32ǡ13,19ʡȡȯǤ
ܿĻԡ 816ڡ 0:08:22 39695
⡼ޥ
ɥХåϤͽۤפФޤ
ƱƤϤ㤤ޤ...٤ƴǿʤΤ...^^;
816ڡ 0:09:54 39696
cyclone
ʸβѻؤΥ󥯤404äΤǼ㴳٤ġ
816ڡ 0:11:56 39697

¤饢¤ʿѣࣴǣ餤줫飳ȤʤΤϡʣˤäơʥˡʣˡᣵݣᣳᣵݣᣴȤʤޤ
816ڡ 0:24:12 39698

Ǥ᣷ݣᣴ
816ڡ 0:27:40 39699
ߤ
ǿ¤ˤʤΤϡʣˤʣˡ
ΣĤ¤ˤʤ褦ˤȡʣˤʣˡ
Ԥ¤ȤΤǤΤԲġäƸԤȤȤ
ʣˤ

μñˣ̤¤ͿƤΤȤ¿Ǥ
ǿξɬפäΤǤ礦
816ڡ 1:00:25 39700
xxx
ȥ¤ʤΤǣ,,Τɤ餫
ȥ¤ʤΤǣ,,,Τɤ줫
Ȥ߹碌ͤȣ,,,ˤʤ롣
816ڡ 1:27:52 39701
Ȥ
basic
,,,򤽤줾a,b,c,dȤ

FOR a=3 TO 73 STEP 2
IF a=9 OR a=15 OR a=21 OR a=25 OR a=27 OR a=33 OR a=35 OR a=39 OR a=45 OR a=49 OR a=51 OR a=55 OR a=57 OR a=63 OR a=65 OR a=69 THEN GOTO 40
FOR b=1 TO 73 STEP 2
IF b=9 OR b=15 OR b=21 OR b=25 OR b=27 OR b=33 OR b=35 OR b=39 OR b=45 OR b=49 OR b=51 OR b=55 OR b=57 OR b=63 OR b=65 OR b=69 THEN GOTO 30
IF a+b<>32 THEN GOTO 30
FOR c=1 TO 73 STEP 2
IF c=9 OR c=15 OR c=21 OR c=25 OR c=27 OR c=33 OR c=35 OR c=39 OR c=45 OR c=49 OR c=51 OR c=55 OR c=57 OR c=63 OR c=65 OR c=69 THEN GOTO 20
IF a+c<>50 THEN GOTO 20
FOR d=1 TO 73 STEP 2
IF d=9 OR d=15 OR d=21 OR d=25 OR d=27 OR d=33 OR d=35 OR d=39 OR d=45 OR d=49 OR d=51 OR d=55 OR d=57 OR d=63 OR d=65 OR d=69 THEN GOTO 10
if b+d<>60 or c+d<>78 then goto 10
IF (a+d=54 AND b+c=56) OR (a+d=56 AND b+c=54) THEN PRINT a;b;c;d
10 NEXT d
20 next c
30 next b
40 next a
end

f9
13 19 37 41 ()
˭ԡ 816ڡ 1:30:36 MAIL:fttnm528@ybb.ne.jp 39702
HirotakaUEDA
ߤʤ®Ǥ͡Ȼפä褿ԤΤǥӥåꤷޤ
βˡǤͤˤʤ뤫ɤϤ狼ޤ󤬡

ʲˡ
դꥢ㥤㥦㥨ʤΤǡ~ޤǤ椫򤷤­¤Ϥ줾

ܥ32ĭ
ܥ50ĭ
ܥ54ĭ
ܥ56ĭ
ܥ60ĭ
ܥ78ĭ

ꥢ㥤ʤΤ0㣲x㥢ܥ32ΩĤΤ0㥢16ĭΩ
0ޤǤǿϡꥤ줾ǿˤʤΤ
ΤȤΤߡΤȤ줾쥤ͤ򭤡̷⤬̵ΤϥΤȤ

äơϤ줾13193741Ȥʤ

ʬäȥ쥬ȤʲΤꤿǤ͡
816ڡ 2:58:13 39703
HirotakaUEDA
ߤ󤵤

ʤǻͤĤ¤ǿǤȤ郎դƤΤȤȤǤ
ΰոҤ٤ޤ
ʬΤˡǤϷɭޤǤΰ켡򤱤вϽФΤǤ
ϤޤǡֻפʤΤǡ켡βˡ򱪲󤹤ˤϡʬβˡΤ褦
ΤǤʤȡμꤦͤθ䤬ޤˤ¿ʤꤹΤ
ơǿȤȤˤƤȻפޤ
816ڡ 3:21:32 39704
ϥ饮㡼ƥ
Ϥ褦ޤ줾¤ǿ¤ʬ򤷲򤭤ޤݤäǤ
816ڡ 6:45:58 HomePage:湩ؤ˥39705
abcba@baLLjugglermoka
3213+193+29ǾΤ13+19ʤΤǸƻ...
816ڡ 7:30:53 39706
ͣ.ǥ
ƱǤ;깩פ;ϤʤäǤ͡
816ڡ 9:24:50 MAIL:tqkb43686@ares.eonet.ne.jp 39707
uchinyan
Ϥˤϡơϡ
ϥĥĤв򤱤Τ񤷤ϤʤǤΤ褯®򤯤Ǥ礦Τ϶ʡ
ʴǡ

< < < ꡤ + Ǿ + 硤餫ʤΤǡ
+ = 32 + = 78 ǡ
ǿꡤ(,) = (3,29) (13,19)(,) = (31,47) (37,41)Ǥ
(,) = (3,29) (,) = (31,47)3 + 31 = 34 < 50Բġ
(,) = (3,29) (,) = (37,41)3 + 37 = 40 < 50Բġ
(,) = (13,19) (,) = (31,47)13 + 31 = 44 < 50Բġ
(,) = (13,19) (,) = (37,41)13 + 37 = 5013 + 41 = 5419 + 37 = 5619 + 41 = 60ġ
ǡ(,,,) = (13,19,37,41)ˤʤޤ

⤦äȿؤäݤƤ褱С

< < < ꡤ + < + < + < + < + + < + < + ʤΤǡ
+ = 32 + = 50 + = 54 + = 56 + = 60 + = 78

+ = 32 + = 50 + = 54 + = 56 + = 60 + = 78
Ǥ
Ԥ (,,,) = (13,19,37,41) Ǥ٤ǿDzġԤ (,,,) = (14,18,36,42) ǿǤʤΤԲġ
Ȥʤäơ(,,,) = (13,19,37,41)ˤʤޤ

Ǥ⡤ǽ®ʡ
ͥνȡ 816ڡ 11:58:41 MAIL:uchi@sco.bekkoame.ne.jp 39708
uchinyan
ǼĤɤߤޤ
Ϥꡤϳñä褦Ǥ

#39694#39695#39696#39700#39706
¤κǾ 32 ȤʤǿȤˤƽ֤õƤˡ줬ִñʡ

#39698
¤ 110 ˤʤʿѤ 27.5 ˤʤ뤳ȤܤƸʤäƤˡ

#39701#39708Ⱦ
¤κǾ 32 ȤʤǿȤ¤κ礬 78 ˤʤǿȤȤ˵ˡ

#39703#39708θȾ
äݤ񤤤Ĵ٤ˡ

#39705
줾¤ǿ¤ʬ򤷤Ĵ٤ˡ

#39702
ץˤˡ

ʤ

#39700
䤳μñˣ̤¤ͿƤΤȤ¿Ǥ
䤢ǿξɬפäΤǤ礦
#39708θȾʬ褦ˡ郎ʤ (,,,) = (14,18,36,42) Ȥ⤢ޤ
äơǿǤʤƤ⤤ǤȤˤϤʤȰȤˤޤʤǤ͡
ͥνȡ 816ڡ 12:32:14 MAIL:uchi@sco.bekkoame.ne.jp 39709
X
뤤Ǥ͡ܡäȤƬǤ򤱤ޤ
816ڡ 14:41:48 39710
ߡ
ǿξϻŪˤϷ빽Ǥ
ʾ⡣

ǡ룳ֹͤϤ٤ǿǡפ40Ǥ
ǤϡΣֹͤ򾮤ʤ(餤)

;ιʤߤˤȤƺ塤Ǥ
816ڡ 17:55:04 39711

¿Ʊ褦ˡ32=13+19򤭤ޤ
ƻɮȤ鷺ƬDz򤱤ޤ
816ڡ 21:46:11 39712
դޤ
⡢32Ȥ߹碌ǹԤޤƥ֥åȾǤƬDz򤱤ޤɤ줬ǤʤǤ礦
816ڡ 22:53:02 39713

#39711
פǾ1ĤϤ˷ޤ롣Ȥ1ĤĻƤФǤ͡񤷤ϤʤǤξǷޤäƤޤǤ͡
817ʶ 9:07:22 39714
ߤä
ˤϡϰճȴñǤ⡢ƱǣȤ߹碌ͤƤޤ򤫤äǤϤιΤϽƤǤޤˤʤȤˤꤿǤ
817ʶ 9:16:22 39715
ߤä
ȡβ򸫤ΤǤƻˤäƤ¿褦Ǥ͡줫Ϥ䤤ۤۤ򤪤ƤʤФǤ
Կ¶衡 817ʶ 9:24:37 39716
???
Option Explicit
Dim a(78) As Integer
Dim b(4) As Integer
Dim prime_kosuu As Integer
Sub Macro1()
Sheets("Sheet1").Select
Cells(1, 1).Value = 0
Range("B1").Select
Dim n As Integer
prime_kosuu = 0
For n = 2 To 78
If prime(n) Then
prime_kosuu = prime_kosuu + 1
a(prime_kosuu) = n
End If
Next n
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
If n = 1 Then
b(1) = 1
Else
b(n) = b(n - 1) + 1
End If
While b(n) <= prime_kosuu
If n < 4 Then
Call saiki(n + 1)
Else
Call check(1)
End If
b(n) = b(n) + 1
Wend
End Sub
Sub check(ByVal x As Integer)
Dim c(6) As Integer
Dim kosuu As Integer
Dim j As Integer
Dim jj As Integer
Dim jjj As Integer
kosuu = 0
For j = 1 To 4 - 1
For jj = j + 1 To 4
kosuu = kosuu + 1
c(kosuu) = a(b(j)) + a(b(jj))
Next jj
Next j
For j = 1 To 6 - 1
For jj = j + 1 To 6
If c(j) > c(jj) Then
jjj = c(j)
c(j) = c(jj)
c(jj) = jjj
End If
Next jj
Next j
If c(1) = 32 And c(2) = 50 And c(3) = 54 And c(4) = 56 And c(5) = 60 And c(6) = 78 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 4
Cells(Cells(1, 1).Value, j + 1).Value = a(b(j))
Next j
End If
End Sub
Private Function prime(ByVal n As Integer) As Integer
Dim j As Integer
prime = -(n > 1)
j = 2
While prime And j * j <= n
If n Mod j = 0 Then
prime = 0
Else
j = j + 1
End If
Wend
End Function
817ʶ 16:48:57 39717

ʥˤʣˤʣˤʤ
ȥȥ⣲ʾˤʤ뤳Ȥ
פˣʾ夬ĤʤȤ̷⡣
ʣ˳
ܤ˾ϥܥʤΤǥ
礭ϥܥʤΤǥƽλ
817ʶ 17:01:02 39718
ޤ
ʤơͥåȤʤʤǤʤ1֤ǡ
ܤĤޤɤǤ

ФǤϤʤطʡפܼפޤ̴ơ
ʤǤޤ
Somewhere in the world 818ڡ 0:44:26 39721

礭2¤78ꡢ3741DZФȤƤϤᡣ
13, 19, 37, 41
818ڡ 2:53:19 HomePage:39722
ߡ
503218ȥκʤΤǡ
ܥȤƤꤨ5456Τǿˤʤ56ΤۤĤ
ΤŪȻפޤ(Ǥϡ)
818ڡ 12:40:06 39723
粬ҹ
ǼĤ򸫤ޤa<b<c<dȤơa+b=32,c+d=78
a,b=(3,29) (13,19)Σ̤ꤷʤΤǡΣĤξ򸵤ƤϤޤ륯ȤۤƱˡȻפޤ

ϤꡢΤ餤ֻ꤬פäƴޤ͡ĿŪˤ٤Ǥ
818ڡ 14:37:33 39724
⡼ޥ
㥤㥦㥨
ܥᣳ
ܥᣵ...ᣱ...
ܥᣵΤȤ...ʣܣ/ᣳǤ...
...
ܥᣵ...ᣴ
ܥ᣷...

...
ʣܣ/ᣴ...
ᣴݣᣳ...
ᣳݣᣱ...
ᣳݣᣱ

Ǥޤɤä...Фޤ...^^;
818ڡ 18:09:52 39725
hide
¤ΣǤξ;顢6n+1ġ6n-1Ĥʬ롣
ܥᣳꡢϤȤ6n+1
᣷ϥᣲŬΤ˥ᣱᣱ
羮ط饤ܥ᣶ꥨᣴܥ᣷ꥨᣳ

2,3ʳǿ6n1ɽ蘆뤳ȤȤäƤʤ餢äȡ

Ȥǡܥȥܥ羮طϺǽʬޤ͡ġġ
ɡ롡 818ڡ 20:19:29 39726

#39726
ܥȥܥ羮طϤäꤷޤ͡
羮طդˤȤ館Ƥޤ̤οȤ߹碌Фޤ
Ǥǿξޤäߤޤ
ǿȤ郎ʤϣ̤ФäƤȤǡ

ȣܤˤĤƤǤdzäƲ狼Τ
ʬˤǤޤǤϤơ
818ڡ 21:44:42 39727
hide
#39737
羮طʬޤ͡#39703ɤǰֺ𤷤Ƥޤޤ
ʤ褯飱䣵ǿȤġġ

ܤˤĤơ
ʰʲ㤨С֣ܿܣפΤ褦ʿ򣶣ܣά
֣ʳƤǿϡޣɽפȤ¤롣
ʳǿƴʤΤǡˣϴޤޤʤ
ʤʤ¤˴
¤ϣܣġĤʤΤ
ˣϴޤޤʤ
ʣȻĤꣳĤǿޣȤΣ¤ܣޤϣȤʤˤ
ĤꣳĤƣݣǤʤФʤʤŬ
äơƣޣǤ롣
¤ˣݣ̵Τǡݣϣİʲ
ʣİʾ夢С¤ݣȤʤ
¤ˣΤǡݣܣİʾ塣
äƣܣġݣĤʬꡢϾ˹礦

̩˼ȻפȰճ񵷤Ǥ;ܤСľŪˣ̵ȤʬΤǡԤ뵤ޤ

ɡ롡 819 23:20:01 39728

#39728
¤äƤ̣Ǥ
ĤοȤ¤Ǥ뤳Ȥ˺Ƥ
Ĥο­ƣdzäΤȡ

षܤɬפʤޤ
ǤʤȤˤΤɬפʤΤǤ͡դࡣ
򥵥äꤹ뤤ˡϤʤΤ
820ʷ 6:37:13 39729