%I #5 Jul 21 2013 07:05:37
%S 2269,2521,2731,2969,3571,3739,4481,4831,5741,6091,6329,6581,9521,
%T 10949,11159,11789,12391,13049,13679,14281,14449,14771,16829,16871,
%U 18229,19489,19559,20021,20399,21701,23269,24179,24571,26111,29191,31039
%N Primes p that divide Fibonacci[(p-1)/7].
%H Giovanni Resta, <a href="/A125253/b125253.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5000]], IntegerQ[Fibonacci[(#1-1)/7]/#1]&]
%Y Cf. A125252 = Primes p that divide Fibonacci[(p+1)/7]. Cf. A122487 = Primes p that divide Fibonacci[(p+1)/2]. Cf. A047652 = Primes p that divide Fibonacci[(p-1)/3]. Cf. A001583 = Artiads. Primes p that divide Fibonacci[(p-1)/5].
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Nov 26 2006
|