Ȥ
Basic ǡͭ⡼ɤ

FOR a=1 TO 720
FOR b=a+1 TO 720
IF MOD(720,a)=0 AND MOD(720,b)=0 AND gcd(a,b)=1 THEN LET s=s+1
NEXT b
NEXT a
PRINT s
END

f9ơ67()
˭ԡ 922ڡ 0:06:22 MAIL:fttnm528@ybb.ne.jp 51823
Ȥ
>51823

BasicΥɤ1ðʾ夫äƤޤΤ
ʲѹ

PRINT TIME$
FOR a=1 TO 720
IF MOD(720,a)<>0 THEN GOTO 20
FOR b=a+1 TO 720
IF MOD(720,b)=0 AND gcd(a,b)=1 THEN LET s=s+1
10 NEXT b
20 NEXT a
PRINT s
PRINT TIME$
END

ΤΤ1ðʾʤDzƤǤʤΩĤΤǤ
ϲƤˡ
˭ԡ 922ڡ 0:13:41 MAIL:fttnm528@ybb.ne.jp 51824
٥륯åĥ
720ǰʬ
235ΤĤȤǾʬ
014+2+1
028+2+4
038
118+2+4
128+8+8
67̤ˤʤޤ

ǽϤ720ˤʤȤ߹碌ȴ㤤Ƥơޤ
922ڡ 0:22:37 51825
鯤ο
7202^4*3^2*5

Ȥ720򾮤񤭽ФơȸߤǤˤʤȤ߹碌ơʲΤΤȤ򷫤֤

ᣱΤȤϡ5*3*2-129̤
ᣲΤȤϡ3*2-15̤
ᣳΤȤϡ5*2-28̤
ᣴΤȤϡ3*2-24̤
ᣵΤȤϡ5*3-411̤
᣶ΤȤϡ0̤
᣸ΤȤϡ3*2-33̤
᣹ΤȤϡ5*2-55̤
10ΤȤϡ0̤
12ΤȤϡ0̤
15ΤȤϡ5-41̤
16ΤȤϡ3*2-51̤
18ΤȤϡ0̤ꡣ

פ67̤ꡣ
922ڡ 0:30:35 51826
ǯ
7202^4*3^2*5

ȥƱĤȤϤʤΤ

5*3*2129
2,4,8,16λ
3951545
25
44
83
161
3,9λ
24816510204080
38
95

8,16,6,12,24,48,9,18,36,72,14411
2*3ޤϤʤ
2*5ޤϤʤ
3*5ޤϡ161
פǡ29+5+4+3+1+8+5+11+167
922ڡ 0:49:57 51827
ǯ
7202^4*3^2*5

ȥƱĤȤϤʤΤ

5*3*2129
2,4,8,16λ
3951545
25
44
83
161
3,9λ
24816510204080
38
95

8,16,6,12,24,48,9,18,36,72,14411
2*3ޤϤʤ
2*5ޤϤʤ
3*5ޤϡ161
פǡ29+5+4+3+1+8+5+11+167
922ڡ 0:55:10 51828
CE
720 ǰ 2,3,5 Ϥ줾 4,2,1 Ĥꡢ 2 羮ط
ʤȤȤ 953135 ̤ǡᥤ1 1 ̤
ĤȾʬ 2 Τ 134267 ̤Ȥޤ
922ڡ 0:56:57 51829
ǯ
#51828ɽʬTabʬʤʤäΤɽʬΤߺ
2,4,8,16λ
_3,9,5,15,45
25
4ߡ4
8ߡߡ3
16ߡߡߡߡ1
3,9λ
_2,4,8,16,5,10,20,40,80
3ߡ8
9ߡߡߡߡ5
922ڡ 0:57:05 51830

720=2^43^25

[or]
[1]532-1=29̤
[2^1&#12316;2^4]4(32-1)=20̤
[3^1,3^2]2(52-1-4)=10̤
[5]1(42)=8̤
29+20+10+8=67̤
922ڡ 2:37:13 51831

ʸ[2^1,2^2,2^3,2^4]Ʊ
922ڡ 2:39:10 51832
ֿء׾ι
ߤǤȹ礻ޤ
Ż̵Ǥʡ
922ڡ 2:52:28 51833
Ǹμ̿
ѥץDz򤤤Ƥߤޤץϡ
import math
n=0
added=[]
for i in range(1,721):
if 720%i==0:
added.append(i)
for a in added:
for b in added:
if a>b:
if math.gcd(a,b)==1:
n=n+1
print('=',n)
922ڡ 3:04:44 51834
ߥȤ
1ʳθʤȤ720ǰʬ򤷤Ȥ˽Ф롢ABƱ˻ȤäƤʤȤˤʤޤȲΤ褦
ʣˡʣˡ51ˡߡ21ˡ1ᣱ
ʣˡʣˡ51ˡߡ11ˡ1ᣲ
ʣˡʣˡ21ˡߡ11ˡ1ᣲ
ʤꡢפ67ˤʤޤ
Ϸϡ 922ڡ 7:49:01 51835
̴
#51826
鯤ο
ȻԺǹͤΤǤʬ餺֤ФĤΤ̵̤
ʹͤ٤˻ǡ񤭽Фס˹礦ͤ
񤭽ФפޤͤβٶΤǤιͤ
ʤǾϤޤͭ񤦤ޤ
ٻΤ桡 922ڡ 10:40:38 51836
鯤ο
#51836

ޡȤ˲򤭤Ȼפ72030ĤʤΤ顢ͤꡢ񤭽ФäᤤȻפޤ򥹥ޡȤ˽ˡ򤹤˻פĤʤäΤǡ

722ǺǤ¿ǡ10򤫤720Ǻ䤹뤢ꡢ̯ʱߤǤ
923ʶ 0:26:29 51837
礦路
1105ƱǤ͡
http://www.sansu.org/used-html/index1105.html
923ʶ 15:33:17 51838
礦路
1105ƱǤ͡
http://www.sansu.org/used-html/index1105.html
923ʶ 16:23:59 51839
Ȥ(8)
1516ϳ˵Ť顼Ƥޤޤ
̸޻ԡ 923ʶ 20:07:16 51840
鯤ο
#51838

10ʬDz򤤤Ƥ3ǯ20ʬƤޤäΤ
ϡ16ǽȴƤơ֥Ȥ⤢뤬
924ڡ 0:59:19 51841
SECOND
FOR x=1 TO 720 !BASIC1105ʸƱ
FOR y=x+1 TO 720
IF FP(720/x)=0 AND FP(720/y)=0 AND GCD(x,y)=1 THEN
LET n=n+1
PRINT USING"!###) ### ###":n, x,y
END IF
NEXT y
NEXT x

FUNCTION GCD(a,b) !a,b κ
LET Rk=MOD(a,b)
IF Rk<>0 THEN LET GCD=GCD(b,Rk) ELSE LET GCD=b
END FUNCTION
924ڡ 1:28:32 51842
٥륯åĥ
#51838
˵äƤޤ
λϤʸɤǤ褦Ǥ
924ڡ 1:33:00 51843
٥륯åĥ
顢Ǥ
924ڡ 1:33:26 51844
ֿء׾ι
rubyץǤߤǤȤθĿʤ顢
require 'prime'
a=720
p a.prime_division.map{|x,y|(0..y).to_a}.inject(:product).map{|z|z.flatten}.combination(2).map{|v,u|[v,u].transpose}.map{|s|s.map{|t|t.inject(:*)}.inject(:+)}.count(0)

Ȥʤ顢
require 'prime'
a=720
p a.prime_division.map{|x,y|(0..y).map{|i|x**i}}.inject(:product).map{|z|z.flatten.inject(:*)}.sort

aˤʿͷ٤ޤ
924ڡ 13:15:53 51845
locker
720=2^43^25
ǰ2Ϥ줾쥢ȥΤɤ餫ˤޤޤʤΤǡ˴ޤޤ礽μ4̤ꡢ˴ޤޤ4̤ꡢɤˤޤޤʤ1̤ι9̤ꡥ3,5Ʊͤ5̤ꡢ3̤
äƾͤʤ953=135̤
ΤȥƱʤΤϤ餬Ȥ1Ǥ顢θ135-12dzä67̤
924ڡ 18:33:25 MAIL:lakeinokinawa@gmail.com 51846
Ϸ
ǰʬ򤹤
ߣߣ
ǰȤ˥롼ʬ
ᣱλ
ߣߣݣᣲ
ȥΥ롼פȤ߹碌
ߣܣߣܣߣᣱ
ȥΥ롼פȤ߹碌
ʣߣߣˡߣᣲ
סᣲܣܣ᣶

ʾˤ̵뤷ޤ
926ʷ 17:50:58 MAIL:takaaki-k@aqr.bbiq.jp 51847
ޥ
ȡԹäȤΤϡ㤬ʤʤäȤȤǤ̳ɤƤ롢ȤΤȤʤΤǤ...ߤޤm(_ _)m
Macbook 928ʿ 23:01:54 HomePage:51848
ޤ륱
ޥ뤵
ѤǤ礦ΤˤϤ줰⤪դޤ
ޤνޤǡǤͷФƤޤ
930ʶ 18:30:08 MAIL:take4310@mobile.email.ne.jp 51849
ޤ륱
#51845

a ˤͷǤߤ顢a0ʲäꤹȥ顼ˤʤä㤤ޤ
ޤǿḫ

ʤΤǡ˺äץȤ̵饤ʡ˲¤Ƥߤޤ
inject() ˥᥽å̾Υܥ뤬ȤäƶƤäΤǡäȤäƤޤ

p a<1 ? nil : a==1 ? [1] : (v=Prime.prime_division(a)).size==1 ? (0..v[0][1]).map{|c|v[0][0]**c} : v.map{|a,b|(0..b).map{|c|a**c}}.inject(:product).map{|f|f.flatten.inject(:*)}.sort

ĤΥ饤ʡξ硢̵뤷ƾä륹ڡäޤΤǤϤˤ櫓狼ʤʤΤǻĤƤޤ
930ʶ 18:36:42 MAIL:take4310@mobile.email.ne.jp 51850
ֿء׾ι
#51850
꤬Ȥޤ㳰ޤäͤƤޤǤ
105ʿ 8:24:49 51851