Loops/Increment loop index within loop body: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,988: / Line 2,988: @@
 n=41          49752014150467
 n=42          99504028301131</pre>
+=={{header|Mathematica}} / {{header|Wolfram Language}}==
+<lang Mathematica>{i, n} = {42, 0};
+While[n < 42,
+ If[PrimeQ[i],
+  Print["n=", n++, "\t", i];
+  i += i - 1;
+  ];
+ i++;
+ ]</lang>
+{{out}}
+<pre>n=0	43
+n=1	89
+n=2	179
+n=3	359
+n=4	719
+n=5	1439
+n=6	2879
+n=7	5779
+n=8	11579
+n=9	23159
+n=10	46327
+n=11	92657
+n=12	185323
+n=13	370661
+n=14	741337
+n=15	1482707
+n=16	2965421
+n=17	5930887
+n=18	11861791
+n=19	23723597
+n=20	47447201
+n=21	94894427
+n=22	189788857
+n=23	379577741
+n=24	759155483
+n=25	1518310967
+n=26	3036621941
+n=27	6073243889
+n=28	12146487779
+n=29	24292975649
+n=30	48585951311
+n=31	97171902629
+n=32	194343805267
+n=33	388687610539
+n=34	777375221081
+n=35	1554750442183
+n=36	3109500884389
+n=37	6219001768781
+n=38	12438003537571
+n=39	24876007075181
+n=40	49752014150467
+n=41	99504028301131</pre>
 =={{header|Microsoft Small Basic}}==