A225219 Indices n of Fibonacci numbers Fib(n) (A000045) that are divisible by n-1 and n+1.
18, 108, 138, 198, 228, 348, 378, 618, 828, 858, 1278, 1428, 1488, 1608, 1668, 1698, 1788, 1878, 1998, 2028, 2088, 2238, 2268, 2658, 2688, 3168, 3258, 3468, 3528, 3558, 3768, 3918, 4128, 4158, 4218, 4338, 4518, 4548, 4638, 4788, 4968, 5418, 5478, 5658, 5778
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n: n in [2..10^4] | IsZero(Fibonacci(n) mod (n-1)) and IsZero(Fibonacci(n) mod (n+1))]; // Bruno Berselli, May 03 2013
-
Mathematica
Select[ Range[5800], Mod[ Fibonacci[ # ], # + 1]== 0 && Mod[ Fibonacci[ # ], # - 1] == 0 &]
-
PARI
is(n)=n%6==0 && ((Mod([1,1;1,0],n^2-1))^n)[1,2]==0 \\ Charles R Greathouse IV, May 02 2013
Comments