Smallest numbers: Difference between revisions

m
→‎{{header|REXX}}: changed a comment.
m (changed "number" to "positive integer".)
m (→‎{{header|REXX}}: changed a comment.)
Line 694:
u= 0; !.= . /*number of unique #'s found; semaphore*/
$=; idx= 0 /*define $ output list; index to 0.*/
do j=0 for hi /*look for a power of 6K that contains N*/
do k=1 until pos(j, k**k)>0 /*calculate a bunch of powers (K**K). */
end /*k*/