|
%I #7 Jul 21 2013 07:05:16
%S 7743,27071,54839,72831,217257,388367,417601,575599,670879,691447,
%T 701569,809999,850541,881011,1274897,1365407,1383249,1464449,1504097,
%U 1653751,1922817,2106017,2276351,2385811,2474047,2556553,2628879,2697899,2804543,3017729,3352049
%N Odd n dividing Fibonacci(n)-1 but neither Fibonacci(n-1) nor Fibonacci(n+1).
%H Giovanni Resta, <a href="/A094400/b094400.txt">Table of n, a(n) for n = 1..559</a> (terms < 4*10^9)
%t Select[Range[50000], OddQ[ # ] && Mod[Fibonacci[ # ] - 1, # ] == 0 && ! Mod[Fibonacci[ # - 1], # ] == 0 && ! Mod[Fibonacci[ # + 1], # ] == 0 &]
%Y Cf. A069106, A069107, A094394, A094401, A094402.
%K nonn
%O 1,1
%A _Eric Rowland_, May 01 2004
%E Offset corrected by and a(15)-a(31) from _Giovanni Resta_, Jul 20 2013
|
