Rhonda numbers: Difference between revisions
→{{header|Perl}}
m (Swift - removed unnecessary semi-colons) |
|||
Line 864:
In base 16: [3e8, 46e, 1a78, 3e28, 4ca8, 4e4b, 4f83, 5d8a, 66b8, 718e, 7ca2, 7e24, 85bc, 86d9, 8e71]
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[RhondaNumberQ]
RhondaNumberQ[b_Integer][n_Integer] := Module[{l, r},
l = Times @@ IntegerDigits[n, b];
r = Total[Catenate[ConstantArray @@@ FactorInteger[n]]];
l == b r
]
bases = Select[Range[2, 36], PrimeQ/*Not];
Do[
Print["base ", b, ":", Take[Select[Range[700000], RhondaNumberQ[b]], UpTo[15]]];
,
{b, bases}
]</lang>
{{out}}
<pre>base 4:{10206,11935,12150,16031,45030,94185,113022,114415,191149,244713,259753,374782,392121,503773,649902}
base 6:{855,1029,3813,5577,7040,7304,15104,19136,35350,36992,41031,42009,60368,65536,67821}
base 8:{1836,6318,6622,10530,14500,14739,17655,18550,25398,25956,30562,39215,39325,50875,51429}
base 9:{15540,21054,25331,44360,44660,44733,47652,50560,54944,76857,77142,83334,83694,96448,97944}
base 10:{1568,2835,4752,5265,5439,5664,5824,5832,8526,12985,15625,15698,19435,25284,25662}
base 12:{560,800,3993,4425,4602,4888,7315,8296,9315,11849,12028,13034,14828,15052,16264}
base 14:{11475,18655,20565,29631,31725,45387,58404,58667,59950,63945,67525,68904,91245,99603,125543}
base 15:{2392,2472,11468,15873,17424,18126,19152,20079,24388,30758,31150,33004,33550,37925,39483}
base 16:{1000,1134,6776,15912,19624,20043,20355,23946,26296,29070,31906,32292,34236,34521,36465}
base 18:{1470,3000,8918,17025,19402,20650,21120,22156,26522,36549,38354,43281,46035,48768,54229}
base 20:{1815,11050,15295,21165,22165,30702,34510,34645,42292,44165,52059,53416,65945,78430,80712}
base 21:{1632,5390,8512,12992,15678,25038,29412,34017,39552,48895,49147,61376,85078,89590,91798}
base 22:{2695,4128,7865,28800,31710,37030,71875,74306,117760,117895,121626,126002,131427,175065,192753}
base 24:{2080,2709,3976,5628,5656,7144,8296,9030,10094,17612,20559,24616,26224,29106,31458}
base 25:{6764,9633,13260,22022,53382,57640,66015,69006,97014,140130,142880,144235,159724,162565,165504}
base 26:{7788,9322,9374,11160,22165,27885,34905,44785,47385,49257,62517,72709,74217,108745,132302}
base 27:{4797,11844,12078,13200,14841,17750,24320,26883,27477,46455,52750,58581,61009,61446,61500}
base 28:{3094,5808,5832,7462,11160,13671,27270,28194,28638,39375,39550,49500,50862,52338,52938}
base 30:{3024,3168,5115,5346,5950,6762,7750,7956,8470,9476,9576,9849,10360,11495,13035}
base 32:{1944,3600,13520,15876,16732,16849,25410,25752,28951,47472,49610,50968,61596,64904,74005}
base 33:{756,7040,7568,13826,24930,30613,59345,63555,64372,131427,227840,264044,313709,336385,344858}
base 34:{5661,14161,15620,16473,22185,37145,125579,134692,135405,138472,140369,177086,250665,255552,295614}
base 35:{8232,9476,9633,18634,30954,41905,52215,52440,56889,61992,62146,66339,98260,102180,103305}
base 36:{1000,4800,5670,8190,10998,12412,13300,15750,16821,23016,51612,52734,67744,70929,75030}</pre>
=={{header|Perl}}==
| |||