〓〓β

ぽっぽ

問題が更新されません

　　 3月11日（木） 0:01:12　　　　35894

黒アイス

6，8，10，14，15，21，22，26，27，33(3月11日だから3＊11)って数えて終了。
ちょっと物足りないので100番目も求めてみようかなー。

　　 3月11日（木） 0:10:00　　　　35895

die neue Frau

見落としていたのが功を奏した
これは、約数が4つになるものが対象になる
つまり、素数2つもしくは同じ素数の3乗になる場合のみが該当する
2、3、5、7、11、13…
6、8、10、14、15、21、22、26、27、33…
で33が答え

地上の楽園でもないな　　 3月11日（木） 0:10:46　　 MAIL:jjyhr530@yahoo.co.jp 　　35896

fumio

こんばんは、あわてて（いつものことですが、ははは）一つ違えました。
書き出しです。ははは。ではまた来週。

　　 3月11日（木） 0:11:33　　　　35897

tomh

素数をp,qとして、pqかp^3の形のものですね。

新潟市　　 3月11日（木） 0:11:43　　 MAIL:tomh@yahoo.co.jp HomePage:H to M　　35898

むらい

ああああ　単純なミスで遅くなりました。
題意より１とその数以外には因数が２つしかないので
この因数を「勝手に素数と決め付けてしまった」ため３５を送信してしまいましたorz
２×４　と　３×９　はＯＫなんですよね。

私以外にも３５を送った人ががいることをささやかに願っています。
解き方は地道に数え上げです。

サイタマ　　 3月11日（木） 0:12:15　　　　35899

金があればいい

6から手作業で数えました(^^；)
いいやり方があるかどうかは明日の昼間にでも考えることにしよう。

　　 3月11日（木） 0:12:15　　　　35900

ウパー

素数同士をかけてできる数。
８と27がちょっといやらしいですよねー

　　 3月11日（木） 0:12:21　　　　35901

圭太

数え上げ。1個ずれてOTL

天地人　　 3月11日（木） 0:16:27　　　　35902

cyclone

#35899
私もです(^^;

中　　 3月11日（木） 0:17:27　　　　35903

６Ａ万歳！

約数が４つのものを数え上げればいいことに解いた後で気づきました　
数える以外のやりかたあるんですかねー

　　 3月11日（木） 0:17:39　　　　35904

ゴンとも

プログラムでやりました。
6は問題文にあるので以下10番目の答えのものまで

8 2
8 4

10 2
10 5

14 2
14 7

15 3
15 5

21 3
21 7

22 2
22 11

26 2
26 13

27 3
27 9

33 3
33 11

豊川市　　 3月11日（木） 0:17:49　　 MAIL:fttnm528@ybb.ne.jp 　　35905

みかん

要するに約数が４つあるってことでいいのかな？

６・８・１０・１４・１５・２１・２２・２６・２７・３３…ですな。

　　 3月11日（木） 0:18:07　　　　35906

黒アイス

うーむ・・・、100番目はちょっときついかな・・・。
ある程度の方針は立ってるのだが・・・。

　　 3月11日（木） 0:19:07　　　　35908

Ｍｒ.ダンディ

2×4　は気がついたのですが、3×9　を見逃して、時間ロス。
（テストなら、間違えたままにしているかも）

　　 3月11日（木） 0:20:16　　　　35909

negl.

素数p,qについて，pqもしくはp^3（これ忘れかけました）の形になるものを並べてみました．p=2,3で十分でしたね．
数が多い時の一般的解法はあるんでしょうか．

　　 3月11日（木） 0:32:09　　　　35910

tomh

例の数列事典では、これですね: Numbers with 4 divisors.
　http://www.research.att.com/~njas/sequences/A030513
ここのリンク
　http://www.research.att.com/~njas/sequences/b030513.txt
によれば、100番目は326ですね。

新潟市　　 3月11日（木） 0:40:58　　 MAIL:tomh@yahoo.co.jp HomePage:H to M　　35911

黒アイス

へー、そんなリンクがあったんですね。初めて知りました。
これなら一目でかなり先までわかりますね。

　　 3月11日（木） 0:45:40　　　　35912

圭太

326ですね。数えました。ふぅ＾＾；

天地人　　 3月11日（木） 1:04:31　　　　35913

ゴンとも

1000番目は3646

豊川市　　 3月11日（木） 1:37:02　　 MAIL:fttnm528@ybb.ne.jp 　　35914

スモークマン

皆さんと同じですが...
数え上げ以外にいい方法があるのだろうか...^^;
2,3,5,7 だけで...4C2=6
2*2^2,3*3^2,2*11,2*13,3*11,2*17<5*7
よって...6+6=12
5*7,2*17 を除いた...3*11が10番目
何回か数え抜かしてしまってました...^^;

　　 3月11日（木） 1:53:24　　　　35915

通りすがり

やはり、そのものズバリは、これでしょう。
http://www.research.att.com/~njas/sequences/A007422

　　 3月11日（木） 3:28:44　　　　35916

???

Option Explicit
Sub Macro1()
Sheets("Sheet1").Select
Dim n As Integer
Dim seki As Integer
Dim j As Integer
Cells(1, 1).Value = 0
n = 2
While Cells(1, 1).Value < 10
seki = 1
For j = 2 To n - 1
If n Mod j = 0 Then
seki = seki * j
End If
Next j
If seki = n Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = n
Range("B" & Cells(1, 1).Value).Select
End If
n = n + 1
Wend
End Sub

　　 3月11日（木） 9:11:54　　　　35917

abcba@jugglermoka

#35910
仰るとおり、2つの素数の積もしくは素数の3乗が条件を満たしますね。
ってことは、n番目の数を求めるには素数分布を調べなければ無理なのかな...

　　 3月11日（木） 10:36:38　　　　35918

uchinyan

はい，こんにちは。さて，今回の問題は．．．
ちょっと数学っぽくなってしまいましたが，こんな感じで解きました。

正の整数を N とし，その 1 でも N でもない約数が存在するとして，それを A とします。
すると，B = N/A も，1 でも N でもない約数になります。
ここで，これら以外にさらに約数 C があるとすると，1 でも N でもない約数の積 M は，
M >= A * B * C > A * B = N
となり，(条件)を満たしません。そして，もちろん，C がなければ，
M = A * B = N
で，(条件)を満たします。
そこで，(条件)を満たす正の整数 N は，1，A，B，N の四つだけを約数にもつ整数となります。
これは，p，q を素数として，
N = p * q 又は N = p * p * p
の形です。後は，素数を小さい順に当てはめて調べると，
6，8，10，14，15，21，22，26，27，33，34，35，．．．
となり，10 番目は 33 になります。

ネコの住む家　　 3月11日（木） 11:01:48　　 MAIL:uchi@sco.bekkoame.ne.jp 　　35919

uchinyan

掲示板を読みました。どうやら皆さん同じ解法のようです。

なお，N = pq, p^3，p, q は素数，として一般にはどうなるかですが，
既にご指摘もあるように，素数の現れ方は単純ではないので，一筋縄では無理そうな気がします。
現実的には，下手な考え休むに似たり，ではないですが，プログラムを組んじゃった方が早そうですね。
例えば，十進ベーシックですが，

LET n = 10000
FOR i = 1 TO n
　LET f = 0
　FOR j = 2 TO SQR(i)
　　IF MOD(i,j) = 0 THEN
　　　LET f = f + 1
　　　LET k = j
　　　IF f = 2 THEN
　　　　EXIT FOR
　　　END IF
　END IF
　NEXT j
　IF (f = 1) AND (i > k * k) THEN
　　LET c = c + 1
　　PRINT c; i
　END IF
NEXT i
END

とか。

ネコの住む家　　 3月11日（木） 11:58:21　　 MAIL:uchi@sco.bekkoame.ne.jp 　　35920

ゴンとも

10000番目は 41037
100000番目は 460011
1000000番目は 5111443 になりました。

豊川市　　 3月11日（木） 15:12:07　　 MAIL:fttnm528@ybb.ne.jp 　　35921

ハラギャーテイ

プログラムです。MATHEMATICAのDivisorsを使いました。matlabでmodを使おうとも思ったのですが、
長くなるのですべての約数を出してくれる関数を使いました。

山口　　 3月11日（木） 15:59:00　　 HomePage:ハラギャーテイの制御工学　　35923

uchinyan

#35921
100000番目までは，#35920のプログラム＋αで確認できました。
しかし，1000000番目は，なかなかたどり着かないです (^^;

昨日は，環境設定などを誤っていて，無駄な計算をしていました。
#35920のプログラムの出力部分を変えただけで，PCのパワーにもよりますが，１時間半ぐらいで，
1 番目： 6
10 番目： 33
100 番目： 326
1000 番目： 3646
10000 番目： 41037
100000 番目： 460011
1000000 番目： 5111443
となりました。
#35920のプログラムは無駄が多いので，まだまだ改良の余地はありますが，
もう一桁上げたこの次は，BASIC＋私のPC では，かなり厳しそうです (^^;

合っているかどうか確認が難しいですが，#35920のプログラムの改良版で，
1 番目： 6
10 番目： 33
100 番目： 326
1000 番目： 3646
10000 番目： 41037
100000 番目： 460011
1000000 番目： 5111443
10000000 番目： 56173466
となりました。
これ以上は，プログラムや動作環境を根本的に見直さないと，結果が出るまでに一日以上かかりそう．．．

ネコの住む家　　 3月12日（金） 16:49:27　　 MAIL:uchi@sco.bekkoame.ne.jp 　　35924

wowka

あまりこちらに来ることはないのですが、今回はすんなり＾＾。
１０番目ならプログラムを使わずともいけましたが・・。
ですが、どのあたりまで数字が伸びるか、それによっては倦怠感がでていたかも＾＾；

　　 3月11日（木） 19:42:34　　　　35925

パズル&ゲーム10種競技

#35924
自分(java）も同じことをやってみました。
最後は昨夜就寝前に走らせました。

1番目：6
10番目：33
100番目：326
1000番目：3646
10000番目：41037
100000番目：460011：0.03秒
1000000番目：5111443：10.0秒
10000000番目：56173466：319.2秒
100000000番目：611736799：10336.4秒（２時間５２分）
右端の時間はPCの解読時間です。

　　 3月13日（土） 6:16:55　　 HomePage:パズル&ゲーム10種競技　　35926

uchinyan

#35926
お，これは速いですね。
宜しかったら，Javaのコードを見せて頂けませんか？

ネコの住む家　　 3月13日（土） 9:04:28　　 MAIL:uchi@sco.bekkoame.ne.jp 　　35927

英ちゃん

皆さんと同じです。数え上げ。
風邪を引いてしまいました。みなさんも気をつけてください。

ひゃっふー　　 3月13日（土） 20:44:19　　 HomePage:BLOOOOOOOOG　　35928

パズル&ゲーム10種競技

#35927

お言葉に甘えて記述します。

int n,count;count=0;
for(int i=2;i<1000000000;i++){
int s=(int)Math.sqrt(i);
n=0;　　
for(int j=2;j<(s+1);j++){
if((i%j)==0){
n++;
if(n>1)break;
if((j==s)&&(s*s==i))n=2;
}
}
if(n!=1)continue;
count++;
//System.out.println("count="+count+" ="+i);
if(count==100000){ //target Number
System.out.println("count="+count+" ="+i);
break;
}
}

　　 3月14日（日） 9:26:09　　 HomePage:パズル&ゲーム10種競技　　35929

金があればいい

約数が4つってことなんですねー

ガマ星雲第58番惑星　　 3月14日（日） 11:01:18　　 HomePage:Youtubeアカウントですが＾＾；　　35930

あみー

順位表が壊れたかと思った

　　 3月14日（日） 13:16:50　　　　35931

uchinyan

#35929
コードの提示，ありがとうございます。

ぱっと見，#35920のプログラムとあまり変わらないような感じがしたので，
比較のために十進ベーシックで組み直してみたら，やはり，ほとんど変わりませんでした。
むしろ，#35920のプログラムの改良版，割る数を素数に限定，よりも遅いようです。
ということは，多分，動作環境がかなり違うのでしょう。BASIC だし，私のマシンは，かなり以前のノートPCだからなぁ．．．

ちなみに，#35920のプログラムの改良版を C で組み直してみたら，

1 番目： 6： 0 秒
10 番目： 33： 0 秒
100 番目： 326： 0 秒
1000 番目： 3646： 0 秒
10000 番目： 41037： 0 秒
100000 番目： 460011： 0 秒
1000000 番目： 5111443： 6 秒
10000000 番目： 56173466： 174 秒
100000000 番目： 611736799： 5179 秒　(1時間26分19秒)

となりました。やはり，C は速いですね。

ネコの住む家　　 3月14日（日） 15:52:38　　 MAIL:uchi@sco.bekkoame.ne.jp 　　35932

大岡　敏幸

数え上げです。２７ぬかしました（＾＾；

石川県　　 3月15日（月） 22:30:32　　　　35933