Numbers whose count of divisors is prime: Difference between revisions

m
→‎{{header|AppleScript}}: Changed a couple of variable labels.
(Added AppleScript.)
m (→‎{{header|AppleScript}}: Changed a couple of variable labels.)
Line 194:
set row to {}
set counter to 0
repeat with nsqrt from 2 to (limit ^ 0.5) div 1)
set sqn to nsqrt * nsqrt
if (countFactors(countFactors(sqn)) = 2) then
set counter to counter + 1
set row's end to (inset & sqn)'s text -maxLen thru -1
if ((count row) = 10) then
set output's end to join(row, " ")
557

edits