A125252 Primes p that divide Fibonacci[(p+1)/7].

307, 797, 1483, 3023, 4157, 4283, 5417, 6397, 6733, 7027, 7433, 7867, 9337, 9743, 9883, 10037, 10177, 10303, 10597, 11423, 11717, 12823, 14293, 14503, 18493, 19963, 20593, 20873, 21503, 24247, 24793, 25703, 26417, 28433, 28657, 29917, 30113

Offset: 1

Author

Alexander Adamchuk, Nov 26 2006

Keywords

• nonn

Links

• Giovanni Resta, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A125253 = Primes p that divide Fibonacci[(p-1)/7]. Cf. A122487 = Primes p that divide Fibonacci[(p+1)/2].

Programs

Mathematica

Select[Prime[Range[5000]], IntegerQ[Fibonacci[(#1+1)/7]/#1]&]