A262348 a(n) = A000215(n) mod A000045(n).
0, 0, 1, 2, 2, 1, 10, 17, 19, 17, 5, 17, 75, 17, 257, 983, 987, 1481, 4178, 4652, 7433, 3488, 10665, 19169, 51372, 538, 257, 65537, 422030, 17, 111134, 430622, 592107, 1036631, 4104877, 11311649, 4963932, 23430341, 16834037, 65537, 67016878, 53547017, 316617399
Offset: 1
Keywords
Links
- Eric Weisstein's World of Mathematics, Fermat Number
- Eric Weisstein's World of Mathematics, Fibonacci Number
Programs
-
Magma
[(2^(2^n) + 1) mod(Fibonacci(n)): n in [1..29]]; // Vincenzo Librandi, Sep 19 2015
-
Mathematica
f[n_] := Mod[ PowerMod[2, 2^n, Fibonacci[n]] + 1, Fibonacci[n]]; Array[f, 43] (* Robert G. Wilson v, Sep 18 2015 *)
-
PARI
a(n) = my (fn = fibonacci(n)); lift(Mod(Mod(2, fn)^(2^n) + 1, fn)); \\ Michel Marcus, Sep 19 2015
Extensions
More terms from Robert G. Wilson v, Sep 18 2015