OFFSET
1,1
LINKS
P. A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151.
P. A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151. [Annotated archived copy]
MAPLE
f:=proc(n) local t1, t2, i;
t1:=convert(n, base, 10);
t2:=1;
for i from 1 to nops(t1) do if t1[i] <> 0 then t2:=t2*t1[i]; fi; od;
t2; end;
g:=n->n+f(n);
t1:=[3];
for n from 1 to 50 do t1:=[op(t1), g(t1[nops(t1)])]; od:
t1;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 29 2013
STATUS
approved