|
MATHEMATICA
|
CC = Table[( Sum[ Mod[(Floor[f/10^n]), 10] , {n, 0, Floor[Log[10, f]] }]), {f, 1, 1323}];
DD = Table[( Sum[ (Mod[(Floor[f/10^n]), 10] ) ^(Mod[(Floor[f/
10^(n - 1)]), 10] ) , {n, 1, Floor[Log[10, f]] }]), {f, 1, 1323}];
EE = Table[( Product[ Mod[(Floor[f/10^n]), 10] , {n, 0, Floor[Log[10, f]] }]), {f, 1, 555}];
FF = Table[( Product[ (Mod[(Floor[f/10^n]), 10] ) ^(Mod[(Floor[f/10^(n - 1)]), 10] ) , {n, 1, Floor[Log[10, f]] }]), {f, 1, 1323}];
SUMA = (CC+DD) + (EE*FF)
RES = SUMA - Table[n, {n, 1, 1323}]
Position[SS, 0]
|