A066781 a(n) = 2^phi(n).

2, 2, 4, 4, 16, 4, 64, 16, 64, 16, 1024, 16, 4096, 64, 256, 256, 65536, 64, 262144, 256, 4096, 1024, 4194304, 256, 1048576, 4096, 262144, 4096, 268435456, 256, 1073741824, 65536, 1048576, 65536, 16777216, 4096, 68719476736, 262144, 16777216, 65536

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..300

Formula

From Amiram Eldar, Nov 18 2020: (Start)

a(n) = 2^A000010(n).

Sum_{n>=1} 1/a(n) = A334071. (End)

Mathematica

Table[2^EulerPhi[n], {n, 40}] (* Arkadiusz Wesolowski, Jan 16 2013 *)

Prog

(PARI) a(n) = 2^eulerphi(n); \\ Harry J. Smith, Mar 25 2010

Crossrefs

Cf. A000010, A334071.

Sequence in context: A376511 A140723 A106051 * A112869 A086117 A095240

Adjacent sequences: A066778 A066779 A066780 * A066782 A066783 A066784

Keyword

nonn

Author

Benoit Cloitre, Jan 18 2002

Status

approved