|
COMMENT
|
Bisection of A094028. [From Omar E. Pol (info(AT)polprimos.com), Nov 12 2008]
a(n) is also A144864(n) written in base 2. [From Omar E. Pol (info(AT)polprimos.com), Nov 13 2008]
Quadrisection of A147759. [From Omar E. Pol (info(AT)polprimos.com), Nov 16 2008]
|
|
MATHEMATICA
|
a = {}; k = {1}; Do[x = FromDigits[k, 2]; AppendTo[a, FromDigits[RealDigits[x, 2]]]; AppendTo[k, 0]; AppendTo[k, 1]; PrependTo[k, 0]; PrependTo[k, 1], {n, 1, 100}]; a (*Artur Jasinski*)
Contribution from Artur Jasinski (grafix(AT)csl.pl), Sep 25 2008: (Start)
Table[FromDigits[RealDigits[1/12 (-4 + 16^n), 2]], {n, 1, 10}]
or
a = {}; k = 1; Do[AppendTo[a, k]; k = 10000 k + 101, {n, 1, 10}]; a
or
Table[1/99 (-1 + 100^(-1 + 2 n)), {n, 1, 20}] (*Artur Jasinski*) (End)
|