Rhonda Number

Author

Eric W. Weisstein
December 5, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/RhondaNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RhondaNumber.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Code

RhondaQ[n_Integer?Positive,b_Integer:10]:=Times@@IntegerDigits[n,b]==b Plus@@Flatten[Table[#1,{#2}]&@@@FactorInteger[n]] /; b>1

Examples

RhondaQ[25662]

Select[Range[10^4],RhondaQ]//Timing

To Multiple Bases

Select[Flatten[Table[{n,b,RhondaQ[n,b]},{n,5500},{b,2,100}],1],Last]