Seth J. Chandler
University of Houston Law Center
Houston, Texas, USA
Registered: Oct 2003
Posts: 20 |
Pascal Integer
The phenomenon described appears to be more general. In particular, one does not need to use the exponents 300, 30, 3. One very quick and crude way to see this is to evaluate the following expression
Manipulate[
Grid@Partition[
Module[{sd =
StringDrop[
ToString[N[((10^(100 i))/((10^(10 i)) - (10^i) - 1)), digits],
InputForm], -10], c}, c = Characters[sd];
PadLeft[c, pl + Length[c], "x"]], p], {{i, 3, "smith exponent"},
2, 7, 1, Appearance -> "Labeled"}, {{digits, 500,
"number of digits to compute"}, 100, 1000,
10}, {{p, 30, "row size"}, 20, 50, 1,
Appearance -> "Labeled"}, {{pl, 15, "pad left amount"}, 0, 30, 1,
Appearance -> "Labeled"}]
I have no earthly clue (a) why this works or (b) how to write a program that would break up the integers at the right location or (c) whether other combinations of integers produce similar results.
__________________
Seth J. Chandler
Foundation Professor of Law
University of Houston Law Center
Houston, Texas 77204
Last edited by Seth J. Chandler on 08-20-2008 at 12:34 PM
Report this post to a moderator | IP: Logged
|