A074716 Numbers k such that 2^k - F(k) is prime, where F(n) is the n-th Fibonacci number.
2, 4, 14, 23, 55, 80, 104, 286, 335, 383, 809, 1664, 2096, 2624, 4262, 13544, 14249, 19886, 35500, 40591, 42920, 50839, 56696, 114505
Offset: 1
Programs
-
Mathematica
Do[ If[ PrimeQ[ 2^n - Fibonacci[n]], Print[n]], {n, 1, 5000}]
Extensions
Edited by Robert G. Wilson v, Sep 06 2002
a(16)-a(20) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Dec 18 2004
a(21)-a(23) from Michael S. Branicky, May 19 2023
a(24) from Michael S. Branicky, Aug 03 2024
Comments