A214967 a(n) is the least m > 0 such that n-m divides Fibonacci(n)-m.

1, 2, 3, 1, 4, 1, 7, 4, 1, 5, 1, 2, 3, 8, 15, 7, 16, 17, 1, 2, 3, 21, 12, 1, 25, 14, 27, 4, 1, 2, 1, 2, 3, 1, 18, 17, 35, 38, 27, 6, 1, 2, 3, 20, 45, 1, 24, 1, 15, 44, 3, 5, 8, 13, 49, 2, 55, 53, 1, 2, 1, 2, 3, 15, 64, 24, 67, 44, 47, 69, 1, 1, 3, 38, 75, 5, 76, 10, 1, 2, 3, 30

Offset

2,2

Links

Clark Kimberling, Table of n, a(n) for n = 2..1000

Example

Write x#y if x|y is false; then 8#33, 7#32, 6#31, 5|30 so a(9) = 4.

Mathematica

Table[m = 1; While[! Divisible[Fibonacci[n]-m, n-m], m++]; m, {n, 2, 100}]

Crossrefs

Cf. A214968.

Sequence in context: A065516 A375511 A280699 * A195164 A223025 A087088

Adjacent sequences: A214964 A214965 A214966 * A214968 A214969 A214970

Keyword

nonn,easy

Author

Clark Kimberling, Jul 31 2012

Status

approved