Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #3086 > unrolled thread
| Started by | DC <b.gatessucks@gmail.com> |
|---|---|
| First post | 2011-06-12 15:03 +0000 |
| Last post | 2011-06-12 15:03 +0000 |
| Articles | 1 — 1 participant |
Back to article view | Back to comp.soft-sys.math.mathematica
Re: Command for show results in live DC <b.gatessucks@gmail.com> - 2011-06-12 15:03 +0000
| From | DC <b.gatessucks@gmail.com> |
|---|---|
| Date | 2011-06-12 15:03 +0000 |
| Subject | Re: Command for show results in live |
| Message-ID | <it2kg2$e3f$1@smc.vnet.net> |
Try
pos = {};
Monitor[Table[
If[Not[StringFreeQ[IntegerString[n^i], "1234567"]],
AppendTo[pos, {n, i}], Null], {n, 200}, {i, 1000}], pos];
pos
-Francesco
Back to top | Article view | comp.soft-sys.math.mathematica
csiph-web