A034053 Numbers with multiplicative digital root value 6.
6, 16, 23, 28, 32, 44, 47, 48, 61, 68, 74, 82, 84, 86, 116, 123, 128, 132, 144, 147, 148, 161, 168, 174, 182, 184, 186, 213, 218, 224, 227, 228, 231, 238, 242, 244, 246, 264, 267, 272, 276, 281, 282, 283, 288, 289, 298, 312, 321, 328, 344, 347, 368, 374, 377
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Multiplicative Digital Root
- Index entries for 10-automatic sequences.
Crossrefs
Programs
-
Mathematica
mdr6Q[n_]:=NestWhile[Times@@IntegerDigits[#]&,n,#>9&]==6; Select[Range[400],mdr6Q] (* Harvey P. Dale, Jul 14 2024 *)