A023166 - OEIS

A023166

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

1, 7, 18, 42, 138, 162, 258, 282, 378, 402, 498, 594, 618, 642, 714, 762, 978, 1002, 1242, 1338, 1362, 1578, 1674, 1698, 1842, 1938, 2082, 2202, 2298, 2658, 2778, 2802, 2922, 3018, 3138, 3282, 3378, 3522, 3642, 3858, 3882, 4098, 4362, 4458, 4554, 4674, 4698

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Equivalently, k divides Fibonacci(k) + 8.

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..10000

MAPLE

with(combinat, fibonacci):

select(n->(fibonacci(n) + 8) mod n = 0, [$1..10^4 ]); # Muniru A Asiru, Jan 28 2018

MATHEMATICA

Select[Range[5000], Divisible[Fibonacci[#]+8, #]&] (* Harvey P. Dale, Mar 26 2011 *)

PROG

(PARI) isok(n) = ((fibonacci(n)+8) % n) == 0; \\ Michel Marcus, Jan 27 2018

(Magma) [n: n in [1..5*10^3] | (Fibonacci(n)+8) mod n eq 0 ]; // Vincenzo Librandi, Jan 27 2018

(GAP) Filtered([1..10^4], n -> (Fibonacci(n) + 8) mod n = 0); # Muniru A Asiru, Jan 28 2018

CROSSREFS

Cf. A000045.

Sequence in context: A192751 A272459 A133673 * A002764 A124053 A356042

Adjacent sequences: A023163 A023164 A023165 * A023167 A023168 A023169

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved