A276131 a(n) = (a(n-1)^2+a(n-2)^2+a(n-3)^2+a(n-4)^2+a(n-1)*a(n-2)+a(n-1)*a(n-3)+a(n-1)*a(n-4)+a(n-2)*a(n-3)+a(n-2)*a(n-4)+a(n-3)*a(n-4))/a(n-5) with five initial ones.

1, 1, 1, 1, 1, 10, 136, 20251, 413100001, 170660037240000001, 2912484838126132813026335712191641, 62371823031725048177115183368983888882661870237372850050710016335

Offset: 0

Author

Seiichi Manyama, Aug 21 2016

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..15

Crossrefs

Cf. A165903, A165896.

Programs

Mathematica

nxt[{a_,b_,c_,d_,e_}]:={b,c,d,e,15(b*c*d*e)-a-b-c-d-e}; NestList[nxt,{1,1,1,1,1},15][[;;,1]] (* Harvey P. Dale, May 18 2024 *)

Formula

a(n) = 15*a(n-1)*a(n-2)*a(n-3)*a(n-4)-a(n-1)-a(n-2)-a(n-3)-a(n-4)-a(n-5).