OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..13
FORMULA
a(1) = 1, a(2) = 4, a(n) = Product_{i=1..n-1} a(i), n >= 3.
a(1) = 1, a(2) = 4, a(3) = 4, a(n) = (a(n-1))^2, n >= 4.
From Amiram Eldar, Nov 30 2025: (Start)
Sum_{n>=1} 1/a(n) = 3/4 + A007404.
Product_{n>=1} (1 + 1/a(n)) = 10/3.
Product_{n>=2} (1 - 1/a(n)) = (3/2) * A215016. (End)
MATHEMATICA
a[1]:= 1; a[2]:= 4; a[n_] := Product[a[j], {j, 1, n-1}]; Table[a[n], {n, 1, 12}] (* G. C. Greubel, Oct 19 2018 *)
Join[{1, 4}, NestList[#^2&, 4, 10]] (* Harvey P. Dale, Aug 26 2019 *)
PROG
(PARI) {a(n) = if(n==1, 1, if(n==2, 4, 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
STATUS
approved
