%I #16 Aug 03 2014 14:01:34
%S 2,3,5,6,7,8,9,11,12,13,15,17,19,20,21,23,24,28,29,31,33,36,37,39,41,
%T 43,44,47,51,52,53,54,57,59,60,61,67,68,69,71,73,76,79,80,83,84,87,89,
%U 90,92,93,96,97,101,103,107,109,111,113,116,120,123,124,126
%N Numbers n for which bigomega(n) divides Fibonacci(n).
%H Charles R Greathouse IV, <a href="/A198045/b198045.txt">Table of n, a(n) for n = 1..10000</a>
%H Florian Luca <a href="http://www.fq.math.ca/41-4.html">On positive numbers n for which bigomega(n) divides F_n</a>, Fib. Quart. 41 (2003) 365.
%F {n: A001222(n) | A000045(n)}.
%t Select[Range[2, 200], Mod[Fibonacci[#], PrimeOmega[#]] == 0 &] (* _T. D. Noe_, Oct 20 2011 *)
%o (PARI) is(n)=((Mod([1,1;1,0],bigomega(n)))^n)[1,2]==0 \\ _Charles R Greathouse IV_, Feb 04 2013
%K nonn
%O 1,1
%A _R. J. Mathar_, Oct 20 2011
|