|
| |
| |
|
|
|
1, 1, 4, 4, 16, 4, 36, 16, 36, 16, 100, 16, 144, 36, 64, 64, 256, 36, 324, 64, 144, 100, 484, 64, 400, 144, 324, 144, 784, 64, 900, 256, 400, 256, 576, 144, 1296, 324, 576, 256, 1600, 144, 1764, 400, 576, 484, 2116, 256, 1764, 400, 1024, 576, 2704, 324, 1600
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| A127473 = right border of A127474
Equals the Mobius transform (A054525) of A029939. [From Gary W. Adamson (qntmpkt(AT)yahoo.com), Aug 20 2008]
|
|
|
FORMULA
| a(n) = (A000010(n))^2.
Multiplicative with a(p^e) = (p-1)^2*p^(2e-2), e>=1. Dirichlet g.f. zeta(s-2)*product_{primes p} (1-2/p^(s-1)+1/p^s). - R. J. Mathar, Apr 04 2011
|
|
|
EXAMPLE
| a(5) = 16 since phi(5) = 4.
|
|
|
MAPLE
| A127473 := proc(n) numtheory[phi](n)^2 ; end proc:
seq(A127473(n), n=1..40) ; # R. J. Mathar, Apr 04 2011
|
|
|
MATHEMATICA
| Table[EulerPhi[n]^2, {n, 100}] (* From Vladimir Joseph Stephan Orlovsky, Feb 02 2012 *)
|
|
|
PROG
| (MAGMA) [(EulerPhi(n))^2: n in [1..180]]; // Vincenzo Librandi, Apr 04 2011
|
|
|
CROSSREFS
| Cf. A000010, A127474.
Sequence in context: A056959 A102376 A091278 * A079611 A174595 A160020
Adjacent sequences: A127470 A127471 A127472 * A127474 A127475 A127476
|
|
|
KEYWORD
| nonn,mult,changed
|
|
|
AUTHOR
| Gary W. Adamson (qntmpkt(AT)yahoo.com), Jan 15 2007
|
| |
|
|
