|
%I #11 Sep 07 2017 15:52:37
%S 1000,1134,6776,15912,19624,20043,20355,23946,26296,29070,31906,32292,
%T 34236,34521,36465,39066,50055,50986,52341,54340,58088,59541,75867,
%U 85870,87150,88182,93058,95944,99674,101460,109650,109810,119480,124500
%N Integers that are Rhonda numbers to base 16.
%C See A099542 for definition of Rhonda numbers and for some links.
%H Reinhard Zumkeller, <a href="/A100975/b100975.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RhondaNumber.html">Rhonda Number</a>
%H Wikipedia, <a href="http://www.wikipedia.org/wiki/Hexadecimal">Hexadecimal</a>
%e The product of the base 16 digits of 1000 is 3*14*8=336. The sum of the prime factors of 1000 is 3*2+3*5=21. 336=16*21 and so 1000 is a Rhonda number to base 16.
%o (Haskell)
%o a100975 n = a100975_list !! (n-1)
%o a100975_list = filter (rhonda 16) $ iterate z 1 where
%o z x = 1 + if r < 15 then x else 16 * z x' where (x', r) = divMod x 16
%o -- Function rhonda as in A099542.
%o -- _Reinhard Zumkeller_, Mar 07 2015
%Y Cf. Rhonda numbers to other bases: A100968 (base 4), A100969 (base 6), A100970 (base 8), A100973 (base 9), A099542 (base 10), A100971 (base 12), A100972 (base 14), A100974 (base 15), A255735 (base 18), A255732 (base 20), A255736 (base 30), A255731 (base 60).
%Y Cf. A001414, A027746, A255872.
%Y Column k=9 of A291925.
%K easy,nonn,base
%O 1,1
%A Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 25 2004
%E Offset fixed by _Reinhard Zumkeller_, Mar 05 2015
|
