A094402 Numbers k that divide both Fibonacci(k+1) and Lucas(k) + 1.
1, 2, 323, 6479, 11663, 18407, 19043, 23407, 34943, 35207, 39203, 44099, 47519, 51983, 53663, 65471, 78089, 79547, 82983, 86063, 94667, 104663, 109871, 121103, 139359, 142883, 157079, 168299, 195227, 196559, 200147, 233519
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[10^5],Divisible[Fibonacci[#+1],#]&&Divisible[LucasL[#]+1,#]&] (* Giorgos Kalogeropoulos, Aug 20 2021 *)
-
PARI
is(n)=(Mod([0,1;1,1],n)^(n+1)*[0;1])[1,1]==0 && (Mod([0,1;1,1],n)^n*[2;1])[1,1]==-1 \\ Charles R Greathouse IV, Nov 04 2016
Extensions
More terms from Emeric Deutsch, Apr 13 2005