[go: up one dir, main page]

login
A034055
Numbers with multiplicative digital root value 8.
17
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,1
MATHEMATICA
dr8Q[n_]:=NestWhile[Times@@IntegerDigits[#]&, n, #>9&]==8; Select[ Range[ 250], dr8Q] (* Harvey P. Dale, Jun 10 2011 *)
CROSSREFS
Cf. A031347.
Cf. A034048, A002275, A034049, A034050, A034051, A034052, A034053, A034054, A034055, A034056 (numbers having multiplicative digital roots 0-9).
Sequence in context: A242185 A273527 A051810 * A043101 A171607 A039278
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved