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

%I #9 Oct 13 2024 07:08:44

%S 1,1,2,8,18,94,1246,17732,10081266,63217342,1195118711985006,

%T 8140003186959622868813528,139669360584622467747806014,

%U 1324290912910022899017738237233285189213652972190967113265372469016533360

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

%H Amiram Eldar, <a href="/A134789/b134789.txt">Table of n, a(n) for n = 1..22</a>

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

%Y Cf. A000045, A050937, A090819, A119984, A134787, A134788.

%K nonn

%O 1,3

%A _Artur Jasinski_, Nov 12 2007