20 lines
451 B
Verilog
20 lines
451 B
Verilog
module main;
|
|
integer N, T, A;
|
|
|
|
initial begin
|
|
$display("The tau functions for the first 100 positive integers are:\n");
|
|
for (N = 1; N <= 100; N=N+1) begin
|
|
if (N < 3) T = N;
|
|
else begin
|
|
T = 2;
|
|
for (A = 2; A <= (N+1)/2; A=A+1) begin
|
|
if (N % A == 0) T = T + 1;
|
|
end
|
|
end
|
|
|
|
$write(T);
|
|
if (N % 10 == 0) $display("");
|
|
end
|
|
$finish ;
|
|
end
|
|
endmodule
|