login
a(n) = floor(log(Fibonacci(prime(k))/prime(k))), where k = A119984(n).
2

%I #10 Oct 13 2024 07:08:19

%S -1,0,0,2,2,4,7,9,16,17,34,57,60,166,200,201,209,237,266,267,1420,

%T 2263,2582,4470,4646,6933,12289,14789,17311,18039,24449,39369,50472,

%U 62555,71250,96762,191209,208726,283920,285676,290979,448242,505208,618634,787250,867638

%N a(n) = floor(log(Fibonacci(prime(k))/prime(k))), where k = A119984(n).

%H Amiram Eldar, <a href="/A134791/b134791.txt">Table of n, a(n) for n = 1..55</a>

%t k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k

%Y Cf. A000045, A050937, A090819, A119984, A134787, A134788, A134789, A134790, A134792.

%K sign

%O 1,4

%A _Artur Jasinski_, Nov 12 2007

%E a(21)-a(46) from _Amiram Eldar_, Oct 13 2024