13 lines
332 B
Text
13 lines
332 B
Text
|
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}
|
||
|
|
]
|