Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions
Sequence: smallest number greater than previous term with exactly n divisors (view source)
Revision as of 19:08, 2 December 2021
, 2 years ago→{{header|ALGOL W}}: Tweak
(Added Algol W) |
(→{{header|ALGOL W}}: Tweak) |
||
Line 200:
integer procedure countDivisors ( Integer value n ) ;
begin
integer count, i, i2;
count := 0;
i := 1;
while
i2 < n
end do begin
if n rem i = 0 then count := count + 2;
i := i + 1
end;
if
end countDivisors ;
|