Yellowstone sequence: Difference between revisions
Content added Content deleted
m (added block highlighting.) |
m (→horizontal list of numbers: optimized the inner DO loop.) |
||
Line 915:
do k=1; if !.k then iterate /*Already used? Then skip this number.*/
if gcd(k, @.#) \==1
if gcd(k, @.prev)<2 then iterate /* " " " " " " */
#= #+1; @.#= k; !.k= 1; $= $ k /*bump ctr; assign; mark used; add list*/
leave /*find the next Yellowstone seq. number*/
| |||