|
|
A121910
|
|
a(n) = 3*a(n-1)*a(n-2)*a(n-3)*a(n-4) - a(n-5), with a(1)=a(2)=a(3)=a(4)=a(5)=1.
|
|
2
|
|
|
1, 1, 1, 1, 1, 2, 5, 29, 869, 756029, 285790302433, 16335219393063437264866, 9201358366190200404401435237110861938769705
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
LINKS
|
|
|
MAPLE
|
a:= proc(n) option remember;
if n<6 then 1 else 3*a(n-1)*a(n-2)*a(n-3)*a(n-4) - a(n-5) fi;
end:
|
|
MATHEMATICA
|
a[n_]:= a[n]= If[n<6, 1, 3*a[n-1]*a[n-2]*a[n-3]*a[n-4] - a[n-5]]; Table[a[n], {n, 15}] (* modified by G. C. Greubel, Oct 07 2019 *)
|
|
PROG
|
(PARI) my(m=15, v=concat([1, 1, 1, 1, 1], vector(m-5))); for(n=6, m, v[n] = 3*v[n-1] *v[n-2]*v[n-3]*v[n-4] - v[n-5]); v \\ G. C. Greubel, Oct 07 2019
(Magma) [n lt 6 select 1 else 3*Self(n-1)*Self(n-2)*Self(n-3)*Self(n-4) - Self(n-5): n in [1..15]]; // G. C. Greubel, Oct 07 2019
(Sage)
def a(n):
if (n<6): return 1
else: return 3*a(n-1)*a(n-2)*a(n-3)*a(n-4) - a(n-5)
(GAP)
a:= function(n)
if n<6 then return 1;
else return 3*a(n-1)*a(n-2)*a(n-3)*a(n-4) - a(n-5);
fi;
end;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|