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

Author

Zhi-Wei Sun, Oct 10 2014

Keywords

• nonn

Examples

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

Links

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

Crossrefs

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

Programs

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}]