OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..12
FORMULA
MATHEMATICA
a[1] = 1; a[2] = 10; a[n_] := Times @@ Array[a, n - 1]; Array[a, 9] (* Robert G. Wilson v, Oct 13 2009 *)
Join[{1, 10}, NestList[#^2&, 10, 10]] (* Harvey P. Dale, Nov 30 2021 *)
PROG
(PARI) {a(n) = if(n==1, 1, if(n==2, 10, prod(j=1, n-1, a(j))))};
for(n=1, 10, print1(a(n), ", ")) \\ G. C. Greubel, Oct 19 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Sep 17 2009
EXTENSIONS
Name changed, formula edited by Robert G. Wilson v, Oct 13 2009
Edited by N. J. A. Sloane, Oct 15 2009
STATUS
approved