OFFSET
1,1
REFERENCES
From a puzzle; explanation found by Pierre Roger.
LINKS
Frank Rubin, Number Series
MATHEMATICA
a[1] = 30; a[n_] := a[n] = Block[{s = Sort[ IntegerDigits[a[n - 1]]]}, While[ s[[1]] == 0, s = Drop[s, 1]]; a[n - 1] + Times @@ s]; Table[ a[n], {n, 50}]
nxt[n_] := n+Times@@Select[IntegerDigits[n], #>0&]; NestList[nxt, 30, 50] (* Harvey P. Dale, Jan 08 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Julien Piquet (julipiquet(AT)yahoo.fr), Jul 18 2004
EXTENSIONS
The proposer suggests that this web site may contain other sequences also.
Edited and extended by Robert G. Wilson v and Klaus Brockhaus, Jul 20 2004
STATUS
approved