OFFSET
1,2
COMMENTS
Unlike A063108, this sequence includes in its formula the digit 0 in the product of digits of a(n).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
Given a(5)=50, then a(6)=50+(5+0)+(5*0)=55.
MAPLE
f:= proc(x) local L;
L:= convert(x, base, 10);
x + convert(L, `+`)+convert(L, `*`)
end proc:
A[1]:= 1:
for n from 2 to 100 do A[n]:= f(A[n-1]) od:
seq(A[i], i=1..100); # Robert Israel, Jun 25 2019
MATHEMATICA
NestList[#+Total[IntegerDigits[#]]+Times@@IntegerDigits[#]&, 1, 50] (* Harvey P. Dale, Sep 11 2019 *)
PROG
(PARI) lista(nn) = {prev = 1; print1(prev, ", "); for (n=1, nn, d = digits(prev); prev += sumdigits(prev) + prod(k=1, #d, d[k]); print1(prev, ", "); ); } \\ Michel Marcus, Oct 01 2014
CROSSREFS
KEYWORD
AUTHOR
Gil Broussard, Sep 30 2014
STATUS
approved