This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181056 #24 Nov 16 2024 02:55:26 %S A181056 2,2,2,3,7,7,37,37,53,173,457,223,1459,2267,1511,4003,13463,9311, %T A181056 38197,29443,49033,193093,333227,136069,746773,1592923,1157579, %U A181056 2575043,7594759,4073233,21225769,19112567,28016189,98825561,119488379,75032131,446083661,729322973 %N A181056 a(n) = prime(phi(Fibonacci(n))). %C A181056 Phi is Euler's totient function A000010. %H A181056 Amiram Eldar, <a href="/A181056/b181056.txt">Table of n, a(n) for n = 1..85</a> (terms 1..60 from Vincenzo Librandi) %F A181056 a(n) = A000040(A065449(n)). - _R. J. Mathar_, Oct 02 2010 %e A181056 a(7) = 37 since prime(phi(fib(7))) = prime(phi(13)) = prime(12) = 37 is the 12th prime. %p A181056 A065449 := proc(n) numtheory[phi](combinat[fibonacci](n)) ; end proc: A181056 := proc(n) ithprime(A065449(n)) ; end proc: seq(A181056(n),n=1..32) ; # _R. J. Mathar_, Oct 02 2010 %t A181056 Prime[EulerPhi[Fibonacci[Range[35]]]] (* _Harvey P. Dale_, Jun 22 2014 *) %o A181056 (Magma) [NthPrime(EulerPhi(Fibonacci(n))): n in [1..40]]; // _Vincenzo Librandi_, Jun 23 2014 %Y A181056 Cf. A000010, A000040, A000045, A065449, A181058. %K A181056 nonn %O A181056 1,1 %A A181056 _Carmine Suriano_, Oct 01 2010 %E A181056 a(1) inserted by _R. J. Mathar_, Oct 02 2010