OFFSET
1,1
COMMENTS
Primes of the form A001654(k)-1, generated at k = 3, 6, 24, 42, 48, 86, 102, 138, 182,....
Yet another way of stating the definition: primes of the form F(k)*F(k+1)-1, where F(k) is the k-th Fibonacci number (A000045). - Colin Barker, Apr 07 2016
EXAMPLE
103 is in the sequence because 103 = 8*13-1 = F(6)*F(7)-1.
MATHEMATICA
q=0; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f*q-1], AppendTo[lst, f*q-1]]; q=f, {n, 6!}]; lst
f[n_] := Fibonacci@ n Fibonacci[n + 1] - 1; f /@ Select[Range@ 180, PrimeQ[f@ #] &] (* Michael De Vlieger, Apr 07 2016 *)
Select[Times@@@Partition[Fibonacci[Range[150]], 2, 1]-1, PrimeQ] (* Harvey P. Dale, Jul 04 2019 *)
PROG
(PARI) L=List(); for(k=1, 200, if(isprime(p=fibonacci(k)*fibonacci(k+1)-1), listput(L, p))); Vec(L) /* Colin Barker, Apr 07 2016 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
EXTENSIONS
Definition reworded by R. J. Mathar, Sep 11 2009
a(8) from Colin Barker, Apr 07 2016
STATUS
approved