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

Author

Jaroslav Krizek, Aug 09 2010

Keywords

• nonn

Examples

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

Links

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

Programs

Magma

[n^(EulerPhi(n)+1): n in [1..25]]; // Vincenzo Librandi, Jul 13 2012

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 *)

PARI

a(n)=n^(eulerphi(n)+1) \\ Charles R Greathouse IV, Mar 05 2013

Formula

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