Jump to content

Achilles numbers: Difference between revisions

Line 712:
]][[2, 1]]
 
Tally[IntegerLength /@ Select[Range[9999999], AchillesNumberQ]] // Grid</lang>
{{out}}
<pre>{72, 108, 200, 288, 392, 432, 500, 648, 675, 800, 864, 968, 972, 1125, 1152, 1323, 1352, 1372, 1568, 1800, 1944, 2000, 2312, 2592, 2700, 2888, 3087, 3200, 3267, 3456, 3528, 3872, 3888, 4000, 4232, 4500, 4563, 4608, 5000, 5292, 5324, 5400, 5408, 5488, 6075, 6125, 6272, 6728, 6912, 7200}
Line 718:
{500, 864, 1944, 2000, 2592, 3456, 5000, 10125, 10368, 12348, 12500, 16875, 19652, 19773, 30375, 31104, 32000, 33275, 37044, 40500}
 
2 1
{{2, 1}, {3, 12}, {4, 47}, {5, 192}, {6, 664}, {7, 2242}}</pre>
3 12
4 47
5 192
6 664
7 2242</pre>
 
=={{header|Perl}}==
1,111

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.