A321792 Lesser of twin primes of the form 6*Fibonacci(k)-1.

5, 11, 17, 29, 278207, 63661259146337

Offset: 1

Author

Gilbert Mozzo, Jan 12 2019

Keywords

• nonn
• more

Comments

Corresponding values for k are 1 or 2, 3, 4, 5, 24, 64, ... Also a(7), if it exists, exceeds 6*Fibonacci(150000).

Examples

			17 = 6*Fibonacci(4) - 1 = 6*3 - 1.
		

Crossrefs

Cf. A001359 (lesser of twin primes).

Programs

Mathematica

Select[6*Fibonacci[Range[2,500]]-1,AllTrue[#+{0,2},PrimeQ]&] (* Harvey P. Dale, Apr 18 2025 *)

PARI

for (n=2, 1000, if (ispseudoprime (p=6*fibonacci(n)-1) && ispseudoprime (p+2), print1(p", ")))