OFFSET
1,1
COMMENTS
These are the numbers k such that A113193(k) = 0.
LINKS
Robert Israel, Table of n, a(n) for n = 1..2600
MAPLE
Luc:= 2, 1, 3: R:= NULL: count:= 0:
a:= 1: b:= 3:
for n from 3 while count < 100 do
c:= a+b; a:= b; b:=c; Luc:= Luc, c;
if ormap(isprime, [seq(c-Luc[i], i=1..n-2)]) then next fi;
R:= R, n; count:= count+1;
od:
R; # Robert Israel, Jan 18 2023
MATHEMATICA
lst={}; Do[i=0; While[i<n-2 && !PrimeQ[Lucas[n]-Lucas[i]], i++ ]; If[i==n-2, AppendTo[lst, n]], {n, 3, 250}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 17 2005
STATUS
approved