login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A053574 Exponent of 2 in phi(n) where phi(n) = A000010(n). 8

%I #31 Sep 05 2023 01:42:34

%S 0,0,1,1,2,1,1,2,1,2,1,2,2,1,3,3,4,1,1,3,2,1,1,3,2,2,1,2,2,3,1,4,2,4,

%T 3,2,2,1,3,4,3,2,1,2,3,1,1,4,1,2,5,3,2,1,3,3,2,2,1,4,2,1,2,5,4,2,1,5,

%U 2,3,1,3,3,2,3,2,2,3,1,5,1,3,1,3,6,1,3,3,3,3,3,2,2,1,3,5,5,1,2,3,2,5,1,4,4,2,1,2,2,3,3,4,4,2,3,3,3,1,5,5

%N Exponent of 2 in phi(n) where phi(n) = A000010(n).

%H Antti Karttunen, <a href="/A053574/b053574.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A007814(A000010(n)).

%F A000010(n) = A053575(n) * 2^a(n). - _Antti Karttunen_, May 26 2017

%F Additive with a(2^e) = e-1, and a(p^e) = A007814(p-1) for an odd prime p. - _Amiram Eldar_, Sep 05 2023

%e For n = 513 = 27*19, phi(513) = 4*81 so exponent of 2 is 2, thus a(513) = 2.

%t IntegerExponent[Array[EulerPhi, 120], 2] (* _Michael De Vlieger_, Aug 16 2017 *)

%o (PARI) vector(66,n,valuation(eulerphi(n),2)) \\ _Joerg Arndt_, Apr 22 2011

%Y Cf. A000010, A007814, A053575, A286572.

%K nonn,easy

%O 1,5

%A _Labos Elemer_, Jan 18 2000

%E Data section extended to 120 terms by _Antti Karttunen_, May 26 2017

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)