OFFSET
1,2
COMMENTS
a(34) > 10^5. - Robert Price, Apr 17 2016
EXAMPLE
2 is in the sequence because L(2)*L(3)-1 = 3*4-1 = 11, which is prime.
MATHEMATICA
Select[Range@ 5000, PrimeQ[LucasL@ # LucasL[# + 1] - 1] &] (* Michael De Vlieger, Apr 07 2016 *)
PROG
(PARI)
lucas(n) = fibonacci(n+1) + fibonacci(n-1)
L=List(); for(k=1, 1000, if(ispseudoprime(lucas(k)*lucas(k+1)-1), listput(L, k))); Vec(L)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Colin Barker, Apr 07 2016
EXTENSIONS
a(22)-a(33) from Robert Price, Apr 17 2016
STATUS
approved