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