OFFSET
1,1
EXAMPLE
11 is in the sequence because 11 = 3*4-1 = L(2)*L(3)-1.
MATHEMATICA
Array[LucasL@ # LucasL[# + 1] - 1 &, {160}] /. n_ /; CompositeQ@ n -> Nothing (* Michael De Vlieger, Apr 07 2016 *)
Select[Times@@@Partition[LucasL[Range[200]], 2, 1]-1, PrimeQ] (* Harvey P. Dale, May 14 2020 *)
PROG
(PARI)
lucas(n) = fibonacci(n+1) + fibonacci(n-1)
L=List(); for(k=1, 200, if(isprime(p=lucas(k)*lucas(k+1)-1), listput(L, p))); Vec(L)
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Apr 07 2016
STATUS
approved