Humble numbers: Difference between revisions
m
→{{header|ALGOL 68}}: Show the first 50 numbers, not 49
m (→{{header|Polyglot:PL/I and PL/M}}: typo) |
m (→{{header|ALGOL 68}}: Show the first 50 numbers, not 49) |
||
Line 170:
<syntaxhighlight lang="algol68">BEGIN # find some Humble numbers - numbers with no prime factors above 7 #
INT max humble = 2048;
INT max shown humble =
PROC min = ( INT a, b )INT: IF a < b THEN a ELSE b FI;
[ 1 : max humble ]INT h;
Line 215:
{{out}}
<pre>
1 2 3 4 5 6 7 8 9 10 12 14 15 16 18 20 21 24 25 27 28 30 32 35 36 40 42 45 48 49 50 54 56 60 63 64 70 72 75 80 81 84 90 96 98 100 105 108 112 120
There are 9 Humble numbers with 1 digits
There are 36 Humble numbers with 2 digits
|