Paolo Xausa, <a href="/A233774/b233774_1.txt">Table of n, a(n) for n = 0..10000</a>
Paolo Xausa, <a href="/A233774/b233774_1.txt">Table of n, a(n) for n = 0..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Paolo Xausa, <a href="/A233774/b233774_1.txt">Table of n, a(n) for n = 0..10000</a>
-----------------------------------------------------
Diagram n A233775(n) a(n)
. Diagram n A233775(n) a(n)
* 0 1 1
/T\
*---* 1 2 3
/T\ /T\
*---*---* 2 3 6
/T\ /T\
*---* *---* 3 4 10
/T\ /T\ /T\ /T\
*---*---*---*---* 4 5 15
/T\ /T\
*---* *---* 5 4 19
. * 0 1 1
. /T\
. *---* 1 2 3
. /T\ /T\
. *---*---* 2 3 6
. /T\ /T\
. *---* *---* 3 4 10
. /T\ /T\ /T\ /T\
. *---*---*---*---* 4 5 15
. /T\ /T\
. *---* *---* 5 4 19
.
A233775[n_] := If[n == 0, 1, (2^IntegerExponent[n, 2]+1)*2^(DigitSum[n, 2]-1)];
Accumulate[Array[A233775, 100, 0]] (* Paolo Xausa, Aug 07 2024 *)
approved
editing
proposed
approved
editing
proposed
Eric Weisstein's World of Mathematics, <a href="httphttps://mathworld.wolfram.com/SierpinskiGraphSierpinskiGasketGraphSierpinski Sierpiński Gasket Graph</a>.
Wikipedia, <a href="httphttps://en.wikipedia.org/wiki/Sierpinski_triangle">Sierpinski triangle</a>.
approved
editing
proposed
approved