%I A133247
%S A133247 2,17,19,23,31,53,61,79,83,107,109,137,167,173,181,197,211,227,229,241,
%T A133247 257,271,293,317,349,379,383,409,421,439,443,467,499,503,541,571,587,
%U A133247 593,601,617,631,647,653,683,691,739,751,769,773,797,811,827,829,857
%N A133247 Prime numbers p with property that no odd Fibonacci number is divisible 
               by p.
%C A133247 The Mathematica coding uses the fact that the Pisano period - the period 
               with which a Fibonacci sequence (mod n) repeats itself is not more 
               than 6n and the fact that the Fibonacci sequence starts with 0.
%C A133247 Subsequence of A133246 except for 2.
%t A133247 Transpose[ Select[Table[{Prime[m], Select[Table[{n, Mod[Fibonacci[n], 
               Prime[m]]}, {n, 6Prime[m] + 1}], Mod[ #[[1]], 3] != 0 && #[[2]] == 
               0 &]}, {m, 300}], #[[2]] == {} &]][[1]]
%Y A133247 Cf. A133246.
%Y A133247 Sequence in context: A064697 A038980 A074857 this_sequence A145100 A145101 
               A153261
%Y A133247 Adjacent sequences: A133244 A133245 A133246 this_sequence A133248 A133249 
               A133250
%K A133247 nonn
%O A133247 1,1
%A A133247 Tanya Khovanova (tanyakh(AT)yahoo.com), Oct 14 2007, Oct 17 2007, Nov 
               02 2007