A134792 - OEIS

A134792

a(n) = round(log(Fibonacci(prime(k))/prime(k))), where k = A119984(n).

%I #8 Oct 13 2024 07:08:11

%S 0,0,1,2,3,5,7,10,16,18,35,57,60,166,201,201,209,238,267,268,1421,

%T 2263,2583,4471,4647,6934,12289,14789,17312,18039,24450,39370,50472,

%U 62555,71250,96762,191210,208727,283921,285676,290980,448242,505208,618634,787251,867638

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

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

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

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

%K nonn

%O 1,4

%A _Artur Jasinski_, Nov 12 2007

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