16/05/04 21:22:23.48 WvfFbq7M.net
>>479 Io
f := method(x,
d := 10 ** (x - 1)
q := 10 ** x - 1
a := 1
n := 0
while(q != (a * d) floor,
n = n + 1
a = a * n
a = a / 10 ** a log10 floor
)
n
)
Io> f(1)
==> 96
Io> f(3)
==> 261
Io> f(5)
==> 583104
16/05/04 21:22:23.48 WvfFbq7M.net
>>479 Io
f := method(x,
d := 10 ** (x - 1)
q := 10 ** x - 1
a := 1
n := 0
while(q != (a * d) floor,
n = n + 1
a = a * n
a = a / 10 ** a log10 floor
)
n
)
Io> f(1)
==> 96
Io> f(3)
==> 261
Io> f(5)
==> 583104