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,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[10^5], Divisible[Fibonacci[#+1], #]&&Divisible[LucasL[#]+1, #]&] (* Giorgos Kalogeropoulos, Aug 20 2021 *)

Prog

(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

Crossrefs

Cf. A069107, A094398, A094400.

Sequence in context: A367927 A192725 A089775 * A332132 A262637 A028483

Adjacent sequences: A094399 A094400 A094401 * A094403 A094404 A094405

Keyword

nonn

Author

Eric Rowland, May 01 2004

Extensions

More terms from Emeric Deutsch, Apr 13 2005

Status

approved