OFFSET
0,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..210
MATHEMATICA
Block[{b = MixedRadix[Reverse@ Prime@ Range@ 12], f}, f[n_] := Times @@ Power @@@ # &@ Transpose@{Prime@ Range@ Length@ #, Reverse@ #} &@ IntegerDigits[n, b]; Array[Nest[f, #, 2] &, 48, 0]] (* Michael De Vlieger, Oct 15 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 21 2016
STATUS
approved