OFFSET
0,2
COMMENTS
MATHEMATICA
a[1]=1; a[n_]:=a[n]=FromDigits[Flatten[IntegerDigits/@(IntegerDigits[a[n-1]]+4)]]; Table[a[n], {n, 15}] - Zak Seidov, Mar 09 2006
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 08 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
STATUS
approved