A115101 Number of distinct prime factors of L(n + F(n)) where F(n) is the Fibonacci number and L(n) is the Lucas number.
1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 5, 4, 7, 7, 6, 10, 7, 8
Offset: 0
Examples
If n=1 then L(1 + F(1)) = 3 (prime) and so the first term is 1. If n=2 then L(2 + F(2)) = 4 = 2^2 and so the second term is also 1. If n=3 then L(3 + F(3)) = 11 (prime) and so the third term is also 1.
Programs
-
Mathematica
Table[PrimeNu[LucasL[n+Fibonacci[n]]],{n,0,17}] (* Harvey P. Dale, Apr 06 2019 *)
Extensions
More terms from Sean A. Irvine, Feb 17 2010
Missing term a(0)=1 inserted by Max Alekseyev, Jun 15 2025