Arithmetic numbers: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 1,166:
mm=1000&
mm1=1000000&
n=1228663 ' 125587 '
dim L(2 to n)=1, M(2 to n)=1 : c++: Print 1,
for i=2 to n {for j=i to n step i {L(j)+=i:M(j)++}:if L(i) mod M(i) = 0& then {if M(i)>2 then D++
| |||