A270491 a(n) = A256832(n) mod A003266(n).

0, 0, 0, 0, 0, 0, 0, 0, 0, 11138400, 2194264800, 970377408000, 194939999654400, 23386660116019200, 63018468582765696000, 81934202708323789824000, 118589068612624434080256000, 230237098382438262288036864000

Offset

1,10

Links

Table of n, a(n) for n=1..18.

Example

a(5) = 0 because (1*2*5*12*29) mod (1*1*2*3*5) = 0.

Mathematica

Table[Mod[Product[Expand[((1 + Sqrt@ 2)^j - (1 - Sqrt@ 2)^j)/(2 Sqrt@ 2)], {j, n}], Product[Fibonacci@ k, {k, n}]], {n, 18}] (* Michael De Vlieger, Mar 18 2016, after Vaclav Kotesovec at A256832 *)

Prog

(PARI) a000129(n) = ([2, 1; 1, 0]^n)[2, 1];
a256832(n) = prod(k=1, n, a000129(k));
a003266(n) = prod(k=1, n, fibonacci(k));
for(n=1, 20, print1(a256832(n) % a003266(n), ", "));

Crossrefs

Cf. A000040, A000129, A003266, A256832.

Sequence in context: A038450 A075093 A206519 * A331360 A232445 A187375

Adjacent sequences: A270488 A270489 A270490 * A270492 A270493 A270494

Keyword

nonn

Author

Altug Alkan, Mar 18 2016

Status

approved