Achilles numbers: Difference between revisions
m
→{{header|Raku}}: avoid unnecessary caching, remove some recalculations
m (→{{header|Wren}}: Removed a blank line.) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: avoid unnecessary caching, remove some recalculations) |
||
Line 183:
}
my
my $f = .&prime-factors.Bag;
(+$f.keys > 1) && (1 == [gcd] $f.values) && (.sqrt.Int² !== $_)
} ).classify: { .chars }▼
my \𝜑 = 0, |(1..*).hyper.map: -> \t { t × [×] t.&prime-factors.squish.map: { 1 - 1/$_ } }
my %
my
put "First 50 Achilles numbers:";
put
put "\nFirst 30 strong Achilles numbers:";
put
▲} ).classify: { .chars }
put "\nNumber of Achilles numbers with:";
| |||