6 lines
133 B
AppleScript
6 lines
133 B
AppleScript
|
map(factorCountMod2, enumFromTo(1, 100))
|
||
|
|
|
||
|
|
on factorCountMod2(n)
|
||
|
|
{n, (length of integerFactors(n)) mod 2 = 1}
|
||
|
|
end factorCountMod2
|