The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A175701

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A175701

a(n) = n ^ (phi(n)+1), phi(n) = A000010(n) = Euler totient function.
(history; published version)

#12 by Charles R Greathouse IV at Thu Sep 08 08:45:51 EDT 2022

PROG

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

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#11 by Joerg Arndt at Tue Apr 01 09:03:33 EDT 2014

STATUS

proposed

approved

#10 by R. J. Mathar at Tue Apr 01 08:00:49 EDT 2014

STATUS

editing

proposed

#9 by R. J. Mathar at Tue Apr 01 08:00:37 EDT 2014

FORMULA

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

MAPLE

A175701 := proc(n)

n^(numtheory[phi](n)+1) ;

end proc: # R. J. Mathar, Apr 01 2014

STATUS

approved

editing

#8 by Charles R Greathouse IV at Tue Mar 05 00:48:51 EST 2013

STATUS

editing

approved

#7 by Charles R Greathouse IV at Tue Mar 05 00:48:45 EST 2013

PROG

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

STATUS

approved

editing

#6 by Charles R Greathouse IV at Tue Feb 19 14:00:37 EST 2013

MATHEMATICA

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

Discussion

Tue Feb 19

14:00

OEIS Server: https://oeis.org/edit/global/1862

#5 by Joerg Arndt at Sat Jul 14 02:05:54 EDT 2012

STATUS

proposed

approved

#4 by Vincenzo Librandi at Fri Jul 13 14:23:15 EDT 2012

STATUS

editing

proposed

#3 by Vincenzo Librandi at Fri Jul 13 14:22:59 EDT 2012

LINKS

Vincenzo Librandi, <a href="/A175701/b175701.txt">Table of n, a(n) for n = 1..300</a>

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

STATUS

approved

editing