A248628 Least positive integer m such that prime(m+n) divides the m-th Fibonacci number F(m) given by A000045.

183, 22, 15, 56, 42, 320, 138, 852, 93, 90, 19, 39, 11, 2100, 956, 140, 921, 341, 44, 78, 644, 13160, 212, 22, 26, 855, 333330, 815, 1032, 221, 400, 28, 1188, 49897, 296, 369, 731, 13, 680, 42, 144, 651, 46, 4105, 626, 52, 204, 5529, 310, 525, 4557, 441, 128, 9768, 102, 106, 168, 442

Offset

1,1

Links

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

Example

a(2) = 22 since prime(22+2) = 89 divides F(22) = 17711 = 89*199.

Mathematica

Do[m=1; Label[aa]; If[Mod[Fibonacci[m], Prime[m+n]]==0, Print[n, " ", m]; Goto[bb]]; m=m+1; Goto[aa]; Label[bb]; Continue, {n, 1, 58}]

Crossrefs

Cf. A000040, A000045, A247937, A248593, A248626.

Sequence in context: A145525 A028676 A228535 * A217608 A264779 A133609

Adjacent sequences: A248625 A248626 A248627 * A248629 A248630 A248631

Keyword

nonn

Author

Zhi-Wei Sun, Oct 10 2014

Status

approved