A094411 - OEIS

%I #17 Sep 02 2024 01:20:40

%S 5777,10877,75077,80189,100127,113573,161027,162133,231703,430127,

%T 618449,635627,667589,851927,1033997,1106327,1256293,1388903,1697183,

%U 2263127,2435423,2512889,2662277,3175883,3399527,3452147,3774377

%N Composite numbers k that divide both Fibonacci(k+1) and Fibonacci(k) + 1.

%C Also composites k that divide both Fibonacci(k+1) and Lucas(k) - 1. - Gary Detlefs, Feb 28 2013

%H Giovanni Resta, <a href="/A094411/b094411.txt">Table of n, a(n) for n = 1..548</a> (terms < 4*10^9)

%t Select[Range[2, 50000], ! PrimeQ[ # ] && Mod[Fibonacci[ # + 1], # ] == 0 && Mod[Fibonacci[ # ] + 1, # ] == 0 &]

%Y Cf. A069107, A094395, A094401, A094412.

%K nonn

%O 1,1

%A _Eric Rowland_, May 01 2004

%E More terms from _Gareth McCaughan_, Jun 11 2004

%E More terms from _Ryan Propper_, Aug 04 2005

%E Offset corrected by _Giovanni Resta_, Jul 20 2013