A198045 Numbers n for which bigomega(n) divides Fibonacci(n).

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, 43, 44, 47, 51, 52, 53, 54, 57, 59, 60, 61, 67, 68, 69, 71, 73, 76, 79, 80, 83, 84, 87, 89, 90, 92, 93, 96, 97, 101, 103, 107, 109, 111, 113, 116, 120, 123, 124, 126

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Florian Luca On positive numbers n for which bigomega(n) divides F_n, Fib. Quart. 41 (2003) 365.

Formula

{n: A001222(n) | A000045(n)}.

Mathematica

Select[Range[2, 200], Mod[Fibonacci[#], PrimeOmega[#]] == 0 &] (* T. D. Noe, Oct 20 2011 *)

Prog

(PARI) is(n)=((Mod([1, 1; 1, 0], bigomega(n)))^n)[1, 2]==0 \\ Charles R Greathouse IV, Feb 04 2013

Crossrefs

Sequence in context: A099354 A039115 A285964 * A152854 A341763 A201144

Adjacent sequences: A198042 A198043 A198044 * A198046 A198047 A198048

Keyword

nonn,changed

Author

R. J. Mathar, Oct 20 2011

Status

approved