OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Multiplicative Digital Root
MATHEMATICA
dr8Q[n_]:=NestWhile[Times@@IntegerDigits[#]&, n, #>9&]==8; Select[ Range[ 250], dr8Q] (* Harvey P. Dale, Jun 10 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved