Re: Command for show results in live
- To: mathgroup at smc.vnet.net
- Subject: [mg119609] Re: Command for show results in live
- From: DC <b.gatessucks at gmail.com>
- Date: Sun, 12 Jun 2011 11:03:13 -0400 (EDT)
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
Try
pos = {};
Monitor[Table[
If[Not[StringFreeQ[IntegerString[n^i], "1234567"]],
AppendTo[pos, {n, i}], Null], {n, 200}, {i, 1000}], pos];
pos
-Francesco