Powerful numbers: Difference between revisions

m
→‎{{header|Perl 6}}: Verbiage tweaks
(→‎{{header|Perl 6}}: Add a Perl 6 example)
m (→‎{{header|Perl 6}}: Verbiage tweaks)
Line 289:
}
 
put "FirstCount and first and last five enumerated n-powerful numbers in 10ⁿ:";
for 2..10 -> \k {
my @powerful = sort powerfuls(10**k, k);
Line 304:
}</lang>
{{out}}
<pre>FirstCount and first and last five enumerated n-powerful numbers in 10ⁿ:
14 2-powerful numbers <= 10² : 1, 4, 8, 9, 16 ... 49, 64, 72, 81, 100
20 3-powerful numbers <= 10³ : 1, 8, 16, 27, 32 ... 625, 648, 729, 864, 1000
10,333

edits