OFFSET
0,3
LINKS
Colin Barker, Table of n, a(n) for n = 0..1000
EXAMPLE
a(4) = 24, a(5) = 5*(2+4) = 30, a(6) = 6*3 = 18.
MAPLE
a:= proc(n) option remember; `if`(n=0, 1,
n*add(i, i=convert(a(n-1), base, 10)))
end:
seq(a(n), n=0..60); # Alois P. Heinz, Dec 12 2020
MATHEMATICA
PROG
(PARI) s=vector(1001, n, 1); for(n=2, #s, s[n]=(n-1)*sumdigits(s[n-1])); s \\ Colin Barker, Nov 20 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Aug 09 2005
EXTENSIONS
a(22) and a(32) corrected, name clarified, and more terms added by Colin Barker, Nov 20 2014
STATUS
approved