OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Fermat Number
Eric Weisstein's World of Mathematics, Fibonacci Number
MATHEMATICA
f[n_] := Mod[ PowerMod[2, 2^n, Fibonacci[n]] + 1, Fibonacci[n]]; Array[f, 43] (* Robert G. Wilson v, Sep 18 2015 *)
PROG
(Magma) [(2^(2^n) + 1) mod(Fibonacci(n)): n in [1..29]]; // Vincenzo Librandi, Sep 19 2015
(PARI) a(n) = my (fn = fibonacci(n)); lift(Mod(Mod(2, fn)^(2^n) + 1, fn)); \\ Michel Marcus, Sep 19 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 18 2015
EXTENSIONS
More terms from Robert G. Wilson v, Sep 18 2015
STATUS
approved