OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Paul A. Loomis, An Interesting Family of Iterated Sequences.
Paul A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151.
Paul A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151. [Annotated archived copy]
MATHEMATICA
f[n_] := Block[{s = Sort[ IntegerDigits[n]]}, While[ s[[1]] == 0, s = Drop[s, 1]]; n + Times @@ s]; t = Table[0, {200}]; Do[ a = f[n]; If[a < 200, t[[a]]++ ], {n, 200}]; Select[ Range[ 200], t[[ # ]] == 0 &] (* Robert G. Wilson v, Jul 16 2004 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 09 2001
STATUS
approved