Cod sursa(job #1207954)
Utilizator | Data | 14 iulie 2014 12:59:12 | |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
program fractii;
type
tabel=array [0..1000001] of integer;
var
t:tabel;
l:int64;
i:longint;
n,m,j,k:int64;
f1,f2:text;
begin
assign (f1,'fractii.in');
assign (f2,'fractii.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=2 to n do t[i]:=i;
for i:=2 to n do
if t[i]=i then begin
j:=0;
repeat
j:=j+i;
t[j]:=t[j] div i;
until j>=n;
end;
l:=1;
for i:=2 to n do
l:=l+2*t[i];
writeln (f2,2*l+1);
close (f1);
close (f2);
end.