A034055 Numbers with multiplicative digital root value 8.
8, 18, 24, 29, 36, 38, 42, 46, 49, 63, 64, 66, 67, 76, 77, 79, 81, 83, 88, 92, 94, 97, 99, 118, 124, 129, 136, 138, 142, 146, 149, 163, 164, 166, 167, 176, 177, 179, 181, 183, 188, 192, 194, 197, 199, 214, 219, 222, 226, 229, 233, 234, 236, 237, 241, 243, 248
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Multiplicative Digital Root
- Index entries for 10-automatic sequences.
Crossrefs
Programs
-
Mathematica
dr8Q[n_]:=NestWhile[Times@@IntegerDigits[#]&,n,#>9&]==8; Select[ Range[ 250],dr8Q] (* Harvey P. Dale, Jun 10 2011 *)