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