cp's OEIS Frontend

A100969 Integers that are Rhonda numbers to base 6.

%I A100969 #22 Jul 01 2025 10:43:13
%S A100969 855,1029,3813,5577,7040,7304,15104,19136,35350,36992,41031,42009,
%T A100969 60368,65536,67821,76880,84525,90601,122831,131175,154570,162565,
%U A100969 184009,184585,196504,217021,219830,222200,252161,256041,268677,353115,355737,357568,367517,371229,388367
%N A100969 Integers that are Rhonda numbers to base 6.
%C A100969 See sequence A099542 for definition of Rhonda numbers and links.
%H A100969 Reinhard Zumkeller, <a href="/A100969/b100969.txt">Table of n, a(n) for n = 1..1000</a>
%H A100969 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/RhondaNumber.html">Rhonda Number</a>
%H A100969 Wikipedia, <a href="http://www.wikipedia.org/wiki/Senary">Senary</a>
%e A100969 The product of the base 6 digits of 507500 is 1*4*5*1*3*3*1*2=360 and the sum of the prime factors of 507500 is 2*2+4*5+7+29=60 and 360=6*60.
%t A100969 A100969Q[k_] := Times @@ IntegerDigits[k, 6] == 6*Total[Times @@@ FactorInteger[k]];
%t A100969 Select[Range[400000], A100969Q] (* _Paolo Xausa_, Jul 01 2025 *)
%o A100969 (Haskell)
%o A100969 a100969 n = a100969_list !! (n-1)
%o A100969 a100969_list = filter (rhonda 6) a248910_list
%o A100969 -- Function rhonda as in A099542.
%o A100969 -- _Reinhard Zumkeller_, Mar 08 2015
%Y A100969 Cf. Rhonda numbers to other bases: A100968 (base 4), A100970 (base 8), A100973 (base 9), A099542 (base 10), A100971 (base 12), A100972 (base 14), A100974 (base 15), A100975 (base 16), A255735 (base 18), A255732 (base 20), A255736 (base 30), A255731 (base 60), see also A255872.
%Y A100969 Cf. A001414, A027746, A007092, subsequence of A248910.
%Y A100969 Column k=2 of A291925.
%K A100969 easy,nonn,base
%O A100969 1,1
%A A100969 Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 24 2004