The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A006046 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A006046

Total number of odd entries in first n rows of Pascal's triangle: a(0) = 0, a(1) = 1, a(2k) = 3*a(k), a(2k+1) = 2*a(k) + a(k+1). a(n) = Sum_{i=0..n-1} 2^wt(i).
(history; published version)

#219 by Charles R Greathouse IV at Sun Feb 16 08:32:29 EST 2025

LINKS

Eric Weisstein's World of Mathematics, <a href="httphttps://mathworld.wolfram.com/PascalsTriangle.html">Pascal's Triangle</a>

Eric Weisstein's World of Mathematics, <a href="httphttps://mathworld.wolfram.com/Rule90.html">Rule 90</a>

Eric Weisstein's World of Mathematics, <a href="httphttps://mathworld.wolfram.com/Stolarsky-HarborthConstant.html">Stolarsky-Harborth Constant</a>

Discussion

Sun Feb 16

08:32

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

#218 by Michael De Vlieger at Thu Oct 24 10:28:25 EDT 2024

STATUS

reviewed

approved

#217 by Joerg Arndt at Thu Oct 24 05:43:08 EDT 2024

STATUS

proposed

reviewed

#216 by Paolo Xausa at Thu Oct 24 03:12:42 EDT 2024

STATUS

editing

proposed

#215 by Paolo Xausa at Thu Oct 24 03:08:38 EDT 2024

MATHEMATICA

Join[{0}, Accumulate[2^Nest[Join[#, #+1] &, {0}, 7]]] (* Paolo Xausa, Oct 24 2024, after IWABUCHI Yu(u)ki in A000120 *)

#214 by Paolo Xausa at Thu Oct 24 03:08:11 EDT 2024

MATHEMATICA

Join[{0}, Accumulate[2^Nest[Join[#, # + 1] &, {0}, 7]]] (* Paolo Xausa, Oct 24 2024, after IWABUCHI Yu(u)ki in A000120 *)

#213 by Paolo Xausa at Thu Oct 24 03:07:34 EDT 2024

MATHEMATICA

Join[{0}, Accumulate[2^Nest[Join[#, # + 1] &, {0}, 7]]] (* Paolo Xausa, Oct 24 2024, using code from _after _IWABUCHI Yu(u)ki_ in A000120 *)

#212 by Paolo Xausa at Thu Oct 24 03:06:53 EDT 2024

MATHEMATICA

Join[{0}, Accumulate[2^DigitCount[Range[0, 100127], 2, 1]]] (* Paolo Xausa, Oct 24 2024 *)

Join[{0}, Accumulate[2^Nest[Join[#, # + 1] &, {0}, 7]]] (* Paolo Xausa, Oct 24 2024, using code from IWABUCHI Yu(u)ki in A000120 *)

STATUS

proposed

editing

#211 by Paolo Xausa at Thu Oct 24 02:50:40 EDT 2024

STATUS

editing

proposed

#210 by Paolo Xausa at Thu Oct 24 02:49:54 EDT 2024

MATHEMATICA

Join[{0}, Accumulate[2^DigitCount[Range[0, 100], 2, 1]]] (* Paolo Xausa, Oct 24 2024 *)

STATUS

approved

editing