%I #10 Aug 29 2021 19:08:25
%S 323,6479,7743,11663,18407,19043,23407,27071,34943,35207,39203,44099,
%T 47519,51983,53663,54839,65471,72831,78089,79547,82983,86063,94667,
%U 104663,109871,121103,139359,142883,157079,168299,195227,196559
%N Odd numbers k that divide Fibonacci(k) - 1 but not Fibonacci(k-1).
%H Giovanni Resta, <a href="/A094409/b094409.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[50000], OddQ[ # ] && Mod[Fibonacci[ # ] - 1, # ] == 0 && ! Mod[Fibonacci[ # - 1], # ] == 0 &]
%Y Cf. A069106, A094394, A094410.
%K nonn
%O 1,1
%A _Eric Rowland_, May 01 2004
%E Offset corrected by _Giovanni Resta_, Jul 20 2013
|