|
|
A047898
|
|
a(1) = 6; for n > 0, a(n+1) = a(n) * (sum of digits of a(n)).
|
|
9
|
|
|
6, 36, 324, 2916, 52488, 1417176, 38263752, 1377495072, 61987278240, 3347313024960, 150629086123200, 6778308875544000, 488038239039168000, 35138753210820096000, 2213741452281666048000, 159389384564279955456000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Nest[Append[#, # Total@ IntegerDigits@ # &@ Last[#]] &, {6}, 15] (* Michael De Vlieger, Jul 08 2019 *)
|
|
PROG
|
(Haskell)
a047898 n = a047898_list !! (n-1)
(Python)
for _ in range(10**2):
....l *= sum(int(d) for d in str(l))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Miklos SZABO (mike(AT)ludens.elte.hu)
|
|
STATUS
|
approved
|
|
|
|