A059670 - OEIS

%I #16 May 30 2023 08:26:49

%S 1,2,3,13,16,20,28,83,136,300,765,1005,1395,3333,30259

%N Numbers k such that F(k)*2^k + 1 (A006483) is prime, where F(k) is the k-th Fibonacci number.

%C a(15) > 17000. - _Michael S. Branicky_, Oct 02 2022

%t Do[ If[ PrimeQ[ Fibonacci[ n ]*2^n + 1 ], Print[ n ] ], {n, 1, 3000} ]

%o (Python)

%o from sympy import fibonacci, isprime

%o def ok(n): return isprime(fibonacci(n)*2**n + 1)

%o print([k for k in range(1400) if ok(k)]) # _Michael S. Branicky_, Oct 01 2022

%Y Cf. A000045, A006483.

%K nonn,more

%O 1,2

%A _Robert G. Wilson v_, Feb 05 2001

%E a(14) from _Michael S. Branicky_, Oct 02 2022

%E a(15) from _Michael S. Branicky_, May 29 2023