Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,1
Giovanni Resta, Table of n, a(n) for n = 1..1000
Select[Prime[Range[5000]], IntegerQ[Fibonacci[(#1+1)/7]/#1]&]
Cf. A125253 = Primes p that divide Fibonacci[(p-1)/7]. Cf. A122487 = Primes p that divide Fibonacci[(p+1)/2].
Sequence in context: A142255 A309101 A098042 * A308785 A142572 A204477
Adjacent sequences: A125249 A125250 A125251 * A125253 A125254 A125255
nonn
Alexander Adamchuk, Nov 26 2006
approved