All pastes #976386 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-04-08 03:19 UTC
rendered paste body
f[x_] := Sum[k, {k, 1, x}]

x = 0; While[Length[Divisors[f[x]]] < 501, x = x + 1]; x
12375

f[12375]
76576500