OFFSET
1,1
MATHEMATICA
NestList[IntegerReverse[#*Max[IntegerDigits[#]]] &, 2, 20] (* Paolo Xausa, May 03 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 09 2006
STATUS
approved