10 REM エステネスのふるいにより素数を求めるプログラム 20 PRINT "指定した数以下の素数を全部求めます。" 25 PRINT "素数を探索する最大の数:" 30 INPUT MAX 40 IF MAX<=2 THEN PRINT "2以上100万以下の数を入力してください" 45 IF MAX>1000000 THEN PRINT "入力された数が100万を超えています" 50 IF MAX>1000000 THEN GOTO 30 60 DIM F(MAX) 70 PRINT USING"########": 2 80 FOR I=3 TO MAX STEP 2 90 IF F(I)=1 THEN GOTO 140 100 PRINT USING"########": I; 101 LET A=A+1 105 IF A>=20 THEN LET A=0 106 IF A=0 THEN PRINT ELSE PRINT; 107 REM 101～106行は素数を20個表示したら改行するプログラム 110 FOR J=I*3 TO MAX STEP I*2 120 LET F(J)=1 130 NEXT J 140 NEXT I 150 PRINT 160 END
227
1390.9
私は素数と聞くたびに、『ジョジョの奇妙な冒険』第六部に登場するプッチ神父が素数を数えて平静を取り戻そうとする様子を思い出します。
彼曰く「素数は1と自分の数でしか割ることのできない孤独な数字」であり、彼に勇気を与えてくれるからだそう。
さて、「1,2,3,4,5,6,7,8,9の中で、素数だけを選んでください」といわれたら、みなさんは正しく選べるでしょうか？
ヒントは、先ほどのセリフにもあったように「1と自分の数でしか割ることのできない数字」ですよ。
◆中学3年生の約7割が「素数」の意味を知らない
答えは、2,3,5,7の4つ。
1を選んだ方もいらっしゃるかもしれませんが、1は1でしか割ることができず、「1と自分の数」の2つの数で割れないため、素数の条件を満たしません。
つづき
https://news.nifty.com/article/magazine/12193-4320940/