The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A166312 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A166312

Number of 1's in binary expansion of A000326(n).
(history; published version)

#9 by Giovanni Resta at Sun May 05 03:53:51 EDT 2019

STATUS

reviewed

approved

#8 by Joerg Arndt at Sun May 05 03:26:48 EDT 2019

STATUS

proposed

reviewed

#7 by Michel Marcus at Sun May 05 01:32:10 EDT 2019

STATUS

editing

proposed

#6 by Michel Marcus at Sun May 05 01:32:08 EDT 2019

CROSSREFS

Cf. A000120, A000326.

STATUS

proposed

editing

#5 by Jon E. Schoenfield at Sun May 05 01:21:41 EDT 2019

STATUS

editing

proposed

#4 by Jon E. Schoenfield at Sun May 05 01:21:39 EDT 2019

FORMULA

a(n) = A000120(A000326(n)). [- _R. J. Mathar, _, Oct 14 2009]

MAPLE

A166312 := proc(n) wt(A000326(n)) ; end: seq(A166312(n), n=0..80) ; # _R. J. Mathar, _, Oct 14 2009

STATUS

approved

editing

#3 by Russ Cox at Sat Mar 31 12:38:27 EDT 2012

AUTHOR

_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Oct 11 2009

Discussion

Sat Mar 31

12:38

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

#2 by Russ Cox at Fri Mar 30 17:40:10 EDT 2012

EXTENSIONS

Definition shortened, offset set to zero by _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 14 2009

Discussion

Fri Mar 30

17:40

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

#1 by N. J. A. Sloane at Tue Jun 01 03:00:00 EDT 2010

NAME

Number of 1's in binary expansion of A000326(n).

DATA

0, 1, 2, 2, 3, 3, 4, 3, 4, 5, 3, 3, 4, 7, 6, 4, 5, 5, 7, 3, 5, 5, 6, 5, 5, 7, 7, 4, 4, 8, 7, 5, 6, 5, 7, 6, 6, 9, 5, 6, 5, 6, 4, 4, 5, 8, 7, 7, 6, 9, 7, 6, 10, 6, 8, 7, 4, 8, 7, 4, 8, 9, 8, 6, 7, 5, 7, 6, 9, 8, 7, 8, 8, 8, 10, 4, 6, 7, 10, 6, 6, 6, 9, 5, 7, 7, 8, 7, 7, 9, 8, 5, 7, 10, 9, 7, 7, 9, 6, 8, 8, 9, 8

OFFSET

0,3

FORMULA

a(n) = A000120(A000326(n)). [R. J. Mathar, Oct 14 2009]

MAPLE

read("transforms") ;

A000326 := proc(n) n*(3*n-1)/2 ; end:

A166312 := proc(n) wt(A000326(n)) ; end: seq(A166312(n), n=0..80) ; # R. J. Mathar, Oct 14 2009

MATHEMATICA

Clear[lst, n, s, f] f[n_]:=Plus@@IntegerDigits[n, 2]; s=0; lst={s}; Do[s+=n; AppendTo[lst, f[s]], {n, 1, 6!, 3}]; lst

KEYWORD

nonn,base,easy

AUTHOR

Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 11 2009

EXTENSIONS

Definition shortened, offset set to zero by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 14 2009

STATUS

approved