A175701 a(n) = n ^ (phi(n)+1), phi(n) = A000010(n) = Euler totient function.

1, 4, 27, 64, 3125, 216, 823543, 32768, 4782969, 100000, 285311670611, 248832, 302875106592253, 105413504, 38443359375, 68719476736, 827240261886336764177, 612220032, 1978419655660313589123979

Offset

1,2

Links

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

Formula

a(n) = n*A062981(n). - R. J. Mathar, Apr 01 2014

Example

For n = 6, a(6) = 6 ^ (phi(6)+1) = 6 ^ (A000010(6)+1) = 6 ^ (2+1) = 216.

Maple

A175701 := proc(n)
    n^(numtheory[phi](n)+1) ;
end proc: # R. J. Mathar, Apr 01 2014

Mathematica

Table[n^(EulerPhi[n]+1), {n, 1, 30}] (* Vincenzo Librandi, Jul 13 2012 *)

Prog

(Magma) [n^(EulerPhi(n)+1): n in [1..25]]; // Vincenzo Librandi, Jul 13 2012
(PARI) a(n)=n^(eulerphi(n)+1) \\ Charles R Greathouse IV, Mar 05 2013

Crossrefs

Sequence in context: A308474 A058067 A294038 * A227866 A356814 A180576

Adjacent sequences: A175698 A175699 A175700 * A175702 A175703 A175704

Keyword

nonn

Author

Jaroslav Krizek, Aug 09 2010

Status

approved