Rhonda numbers: Difference between revisions
→{{header|Julia}}
(→{{header|Wren}}: Improved output formatting.) |
|||
Line 43:
;* [[oeis:A255736|OEIS:A255736 - Integers that are Rhonda numbers to base 30]]
<br>
=={{header|Julia}}==
<lang julia>using Primes
isRhonda(n, b) = prod(digits(n, base=b)) == b * sum([prod(pair) for pair in factor(n).pe])
function displayrhondas(low, high, nshow)
for b in filter(!isprime, low:high)
n, rhondas = 1, Int[]
while length(rhondas) < nshow
isRhonda(n, b) && push!(rhondas, n)
n += 1
end
println("First $nshow Rhondas in base $b:")
println("In base 10: ", rhondas)
println("In base $b: ", replace(string([string(i, base=b) for i in rhondas]), "\"" => ""), "\n")
end
end
displayrhondas(2, 16, 15)
</lang>{{out}}
<pre>
First 15 Rhondas in base 4:
In base 10: [10206, 11935, 12150, 16031, 45030, 94185, 113022, 114415, 191149, 244713, 259753, 374782, 392121, 503773, 649902]
In base 4: ["2133132", "2322133", "2331312", "3322133", "22333212", "112333221", "123211332", "123323233", "232222231", "323233221", "333122221", "1123133332", "1133232321", "1322333131", "2132222232"]
First 15 Rhondas in base 6:
In base 10: [855, 1029, 3813, 5577, 7040, 7304, 15104, 19136, 35350, 36992, 41031, 42009, 60368, 65536, 67821]
In base 6: ["3543", "4433", "25353", "41453", "52332", "53452", "153532", "224332", "431354", "443132", "513543", "522253", "1143252", "1223224", "1241553"]
First 15 Rhondas in base 8:
In base 10: [1836, 6318, 6622, 10530, 14500, 14739, 17655, 18550, 25398, 25956, 30562, 39215, 39325, 50875, 51429]
In base 8: ["3454", "14256", "14736", "24442", "34244", "34623", "42367", "44166", "61466", "62544", "73542", "114457", "114635", "143273", "144345"]
First 15 Rhondas in base 9:
In base 10: [15540, 21054, 25331, 44360, 44660, 44733, 47652, 50560, 54944, 76857, 77142, 83334, 83694, 96448, 97944]
In base 9: ["23276", "31783", "37665", "66758", "67232", "67323", "72326", "76317", "83328", "126376", "126733", "136273", "136723", "156264", "158316"]
First 15 Rhondas in base 10:
In base 10: [1568, 2835, 4752, 5265, 5439, 5664, 5824, 5832, 8526, 12985, 15625, 15698, 19435, 25284, 25662]
In base 10: ["1568", "2835", "4752", "5265", "5439", "5664", "5824", "5832", "8526", "12985", "15625", "15698", "19435", "25284", "25662"]
First 15 Rhondas in base 12:
In base 10: [560, 800, 3993, 4425, 4602, 4888, 7315, 8296, 9315, 11849, 12028, 13034, 14828, 15052, 16264]
In base 12: ["3a8", "568", "2389", "2689", "27b6", "29b4", "4297", "4974", "5483", "6a35", "6b64", "7662", "86b8", "8864", "94b4"]
First 15 Rhondas in base 14:
In base 10: [11475, 18655, 20565, 29631, 31725, 45387, 58404, 58667, 59950, 63945, 67525, 68904, 91245, 99603, 125543]
In base 14: ["4279", "6b27", "76cd", "ab27", "b7c1", "1277d", "173da", "17547", "17bc2", "19437", "1a873", "1b17a", "25377", "28427", "33a75"]
First 15 Rhondas in base 15:
In base 10: [2392, 2472, 11468, 15873, 17424, 18126, 19152, 20079, 24388, 30758, 31150, 33004, 33550, 37925, 39483]
In base 15: ["a97", "aec", "35e8", "4a83", "5269", "5586", "5a1c", "5e39", "735d", "91a8", "936a", "9ba4", "9e1a", "b385", "ba73"]
First 15 Rhondas in base 16:
In base 10: [1000, 1134, 6776, 15912, 19624, 20043, 20355, 23946, 26296, 29070, 31906, 32292, 34236, 34521, 36465]
In base 16: ["3e8", "46e", "1a78", "3e28", "4ca8", "4e4b", "4f83", "5d8a", "66b8", "718e", "7ca2", "7e24", "85bc", "86d9", "8e71"]
First 15 Rhondas in base 4:
In base 10: [10206, 11935, 12150, 16031, 45030, 94185, 113022, 114415, 191149, 244713, 259753, 374782, 392121, 503773, 649902]
In base 4: [2133132, 2322133, 2331312, 3322133, 22333212, 112333221, 123211332, 123323233, 232222231, 323233221, 333122221, 1123133332, 1133232321, 1322333131, 2132222232]
First 15 Rhondas in base 6:
In base 10: [855, 1029, 3813, 5577, 7040, 7304, 15104, 19136, 35350, 36992, 41031, 42009, 60368, 65536, 67821]
In base 6: [3543, 4433, 25353, 41453, 52332, 53452, 153532, 224332, 431354, 443132, 513543, 522253, 1143252, 1223224, 1241553]
First 15 Rhondas in base 8:
In base 10: [1836, 6318, 6622, 10530, 14500, 14739, 17655, 18550, 25398, 25956, 30562, 39215, 39325, 50875, 51429]
In base 8: [3454, 14256, 14736, 24442, 34244, 34623, 42367, 44166, 61466, 62544, 73542, 114457, 114635, 143273, 144345]
First 15 Rhondas in base 9:
In base 10: [15540, 21054, 25331, 44360, 44660, 44733, 47652, 50560, 54944, 76857, 77142, 83334, 83694, 96448, 97944]
In base 9: [23276, 31783, 37665, 66758, 67232, 67323, 72326, 76317, 83328, 126376, 126733, 136273, 136723, 156264, 158316]
First 15 Rhondas in base 10:
In base 10: [1568, 2835, 4752, 5265, 5439, 5664, 5824, 5832, 8526, 12985, 15625, 15698, 19435, 25284, 25662]
In base 10: [1568, 2835, 4752, 5265, 5439, 5664, 5824, 5832, 8526, 12985, 15625, 15698, 19435, 25284, 25662]
First 15 Rhondas in base 12:
In base 10: [560, 800, 3993, 4425, 4602, 4888, 7315, 8296, 9315, 11849, 12028, 13034, 14828, 15052, 16264]
In base 12: [3a8, 568, 2389, 2689, 27b6, 29b4, 4297, 4974, 5483, 6a35, 6b64, 7662, 86b8, 8864, 94b4]
First 15 Rhondas in base 14:
In base 10: [11475, 18655, 20565, 29631, 31725, 45387, 58404, 58667, 59950, 63945, 67525, 68904, 91245, 99603, 125543]
In base 14: [4279, 6b27, 76cd, ab27, b7c1, 1277d, 173da, 17547, 17bc2, 19437, 1a873, 1b17a, 25377, 28427, 33a75]
First 15 Rhondas in base 15:
In base 10: [2392, 2472, 11468, 15873, 17424, 18126, 19152, 20079, 24388, 30758, 31150, 33004, 33550, 37925, 39483]
In base 15: [a97, aec, 35e8, 4a83, 5269, 5586, 5a1c, 5e39, 735d, 91a8, 936a, 9ba4, 9e1a, b385, ba73]
First 15 Rhondas in base 16:
In base 10: [1000, 1134, 6776, 15912, 19624, 20043, 20355, 23946, 26296, 29070, 31906, 32292, 34236, 34521, 36465]
In base 16: [3e8, 46e, 1a78, 3e28, 4ca8, 4e4b, 4f83, 5d8a, 66b8, 718e, 7ca2, 7e24, 85bc, 86d9, 8e71]
</pre>
| |||