OFFSET
0,5
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..76
FORMULA
MATHEMATICA
b[n_ /; 0 <= n <= 4] = 1; b[n_]:= b[n] = (b[n-1]*b[n-3] + b[n-2]^2)/b[n -4]; Table[(b[n])^4, {n, 0, 20}] (* G. C. Greubel, Sep 25 2018 *)
PROG
(PARI) {b(n) = if(n<4, 1, (b(n-1)*b(n-3) + b(n-2)^2)/b(n-4))};
for(n=0, 20, print1((b(n))^4, ", ")) \\ G. C. Greubel, Sep 25 2018
(PARI) b=vector(20); b[1]=b[2]=b[3]=1; b[4]=2; for(n=5, #b, b[n]=(b[n-1]*b[n-3]+b[n-2]^2)/b[n-4]); concat(1, vector(20, n, b[n]^4)) \\ Altug Alkan, Sep 25 2018
(Magma) I:=[1, 1, 1, 1]; [n le 4 select I[n] else ((Self(n-1)*Self(n-3) + Self(n-2)^2)/Self(n-4))^4: n in [1..15]]; // G. C. Greubel, Sep 25 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 14 2009
STATUS
approved