|
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 |