Groups > comp.soft-sys.math.mathematica > #3086

Re: Command for show results in live

From	DC <b.gatessucks@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Command for show results in live
Date	2011-06-12 15:03 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<it2kg2$e3f$1@smc.vnet.net> (permalink)

Show all headers | View raw

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 comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Command for show results in live DC <b.gatessucks@gmail.com> - 2011-06-12 15:03 +0000

csiph-web