A155916 Prime factors of odd Fibonacci numbers.

3, 5, 7, 11, 13, 29, 37, 41, 43, 47, 59, 67, 71, 73, 89, 97, 101, 103, 113, 127, 131, 139, 149, 151, 157, 163, 179, 191, 193, 199, 223, 233, 239, 251, 263, 269, 277, 281, 283, 307, 311, 313, 331, 337, 347, 353, 359, 367, 373, 389, 397, 401, 419, 431, 433, 449

Offset: 1

Author

Tanya Khovanova, Jan 30 2009

Keywords

• nonn

Comments

Primes not in A133247.

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A014437, A133247.

Programs

Maple

filter:= proc(p) local a,b,i;
if not isprime(p) then return false fi;
a:= 0: b:= 1;
for i from 2 do
  a,b:= b, (a+b) mod p;
  if b = 0 then
    if i mod 3 <> 0 then return true
    elif a = 1 then return false
    fi
  fi
od:
end proc:
select(filter, [seq(i,i=3..1000,2)]); # Robert Israel, Nov 20 2016