A181056 - OEIS

A181056

Let m = phi(Fibonacci(n)); then a(n) = prime(m).

2, 2, 2, 3, 7, 7, 37, 37, 53, 173, 457, 223, 1459, 2267, 1511, 4003, 13463, 9311, 38197, 29443, 49033, 193093, 333227, 136069, 746773, 1592923, 1157579, 2575043, 7594759, 4073233, 21225769, 19112567, 28016189, 98825561, 119488379, 75032131, 446083661, 729322973

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Phi is Euler's totient function A000010.

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..60

FORMULA

a(n) = A000040(A065449(n)). - R. J. Mathar, Oct 02 2010

EXAMPLE

a(7)=37 since prime(phi(fib(7))) = prime(phi(13)) = prime(12) = 37 is the 12th prime.

MAPLE

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

MATHEMATICA

Prime[EulerPhi[Fibonacci[Range[35]]]] (* Harvey P. Dale, Jun 22 2014 *)

PROG

(Magma) [NthPrime(EulerPhi(Fibonacci(n))): n in [1..40]]; // Vincenzo Librandi, Jun 23 2014

CROSSREFS

Cf. A000010, A000040, A000045

Sequence in context: A245526 A024682 A091228 * A200918 A134890 A101360

Adjacent sequences: A181053 A181054 A181055 * A181057 A181058 A181059

KEYWORD

nonn

AUTHOR

Carmine Suriano, Oct 01 2010

EXTENSIONS

a(1) inserted by R. J. Mathar, Oct 02 2010

STATUS

approved