Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Seaching in Pi a sequence. Looking for a faster method
  • Next by Date: Re: Replacement faild
  • Previous by thread: Command for show results in live
  • Next by thread: Aw: mathematica 8 and psfrag