A263043 a(n)=n for n = 1..5; for n>=6, a(n) = a(n-5)*a(n-3)*a(n-1) - a(n-4)*a(n-2).

1, 2, 3, 4, 5, 7, 41, 587, 16231, 3323246, 13654552343, 9086706651503151, 17725851219520961162682469, 3928527920941441960398255684700870518131, 118631177920294161985904111240557003105520588984802122222460259

Offset: 1

Author

Gianmarco Giordano, Oct 08 2015

Keywords

• nonn

Programs

Magma

[n le 5 select n else Self(n-5)*Self(n-3)*Self(n-1)-Self(n-4)*Self(n-2): n in [1..20]]; // Vincenzo Librandi, Oct 09 2015

Mathematica

nxt[{a_,b_,c_,d_,e_}]:={b,c,d,e,a*c*e-b*d}; NestList[nxt,{1,2,3,4,5},15][[;;,1]] (* Harvey P. Dale, Dec 21 2024 *)

PARI

a(n) = if(n<6, n, a(n-5)*a(n-3)*a(n-1)-a(n-4)*a(n-2));
vector(20, n, a(n)) \\ Altug Alkan, Oct 08 2015

Extensions

More terms from Altug Alkan, Oct 08 2015