Attractive numbers: Difference between revisions
Add BASIC
Drkameleon (talk | contribs) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 379:
4 6 8 9 10 12 14 15 18 20 21 22 25 26 27 28 30 32 33 34 35 38 39 42 44 45 46 48 49 50 51 52 55 57 58 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 102 105 106 108 110 111 112 114 115 116 117 118 119 120
</pre>
=={{header|BASIC}}==
<lang BASIC>10 DEFINT A-Z: N=120
20 DIM P(N)
30 FOR I=2 TO N: P(I)=1: NEXT I
40 FOR I=2 TO SQR(N)
50 IF P(I)>1 GOTO 70
60 FOR J=I+I TO N STEP I: P(J)=P(J)+1: NEXT J
70 NEXT I
80 FOR I=2 TO N
90 IF P(P(I))=1 THEN PRINT I,
100 NEXT I</lang>
{{out}}
<pre> 4 6 8 9 10
12 14 15 16 18
20 21 22 24 25
26 27 28 32 33
34 35 36 38 39
40 44 45 46 48
49 50 51 52 54
55 56 57 58 62
63 64 65 68 69
72 74 75 76 77
78 80 81 82 85
86 87 88 91 92
93 94 95 96 98
99 100 102 104 106
108 111 112 114 115
116 117 118 119</pre>
=={{header|C}}==
| |||