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!)
A046818 Number of 1's in binary expansion of 3n+1. 2

%I #24 Aug 01 2023 07:24:31

%S 1,1,3,2,3,1,3,3,3,3,5,2,3,2,4,4,3,3,5,4,5,1,3,3,3,3,5,3,4,3,5,5,3,3,

%T 5,4,5,3,5,5,5,5,7,2,3,2,4,4,3,3,5,4,5,2,4,4,4,4,6,4,5,4,6,6,3,3,5,4,

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

%N Number of 1's in binary expansion of 3n+1.

%H Reinhard Zumkeller, <a href="/A046818/b046818.txt">Table of n, a(n) for n = 0..10000</a>

%H S. R. Finch, P. Sebah and Z.-Q. Bai, <a href="http://arXiv.org/abs/0802.2654">Odd Entries in Pascal's Trinomial Triangle</a>, arXiv:0802.2654 [math.NT], 2008.

%F a(n) = A000120(3n+1).

%F a(n) = A240883(n) + 1. - _Reinhard Zumkeller_, Apr 14 2014

%t Table[Count[IntegerDigits[3 n + 1, 2], 1], {n, 0, 92}] (* _Jayanta Basu_, Jun 29 2013 *)

%t DigitCount[#,2,1]&/@(3Range[0,100]+1) (* _Harvey P. Dale_, Apr 03 2021 *)

%o (Haskell)

%o a046818 = a000120 . a016777 -- _Reinhard Zumkeller_, Apr 14 2014

%Y Cf. A000120, A016777 (3n+1).

%K nonn,base

%O 0,3

%A _N. J. A. Sloane_

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 14:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)