A023177 Numbers k such that Fibonacci(k) == 8 (mod k).

1, 3, 6, 54, 174, 246, 366, 534, 606, 654, 894, 966, 1086, 1374, 1446, 1614, 1686, 2046, 2094, 2214, 2334, 2406, 2454, 2526, 2694, 2766, 3054, 3126, 3246, 3414, 3606, 3846, 3966, 4206, 4254, 4566, 4614, 4854, 4926, 4974, 5286, 5382, 5406, 5574, 5646, 6054

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000045, A002708, A023165, A023173, A023174, A023175, A023176.

Programs

Maple

filter:= n -> combinat:-fibonacci(n) - 8 mod n = 0:
select(filter, [$1..10^4]); # Robert Israel, Mar 05 2025

Mathematica

Select[Range[6100], Mod[Fibonacci[#] - 8, #]==0&]  (* Harvey P. Dale, Sep 21 2021 *)

Formula

A002708(a(n)) = 8 (for n >= 4). - Robert Israel, Mar 05 2025

Extensions

Definition clarified by N. J. A. Sloane, Sep 21 2021