login
Numbers with multiplicative digital root value 6.
17

%I #24 Jul 14 2024 12:15:31

%S 6,16,23,28,32,44,47,48,61,68,74,82,84,86,116,123,128,132,144,147,148,

%T 161,168,174,182,184,186,213,218,224,227,228,231,238,242,244,246,264,

%U 267,272,276,281,282,283,288,289,298,312,321,328,344,347,368,374,377

%N Numbers with multiplicative digital root value 6.

%H Harvey P. Dale, <a href="/A034053/b034053.txt">Table of n, a(n) for n = 1..1000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MultiplicativeDigitalRoot.html">Multiplicative Digital Root</a>

%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.

%t mdr6Q[n_]:=NestWhile[Times@@IntegerDigits[#]&,n,#>9&]==6; Select[Range[400],mdr6Q] (* _Harvey P. Dale_, Jul 14 2024 *)

%Y Cf. A031347.

%Y Cf. A034048, A002275, A034049, A034050, A034051, A034052, A034053, A034054, A034055, A034056 (numbers having multiplicative digital roots 0-9).

%K nonn,base,easy

%O 1,1

%A _Patrick De Geest_, Sep 15 1998