OFFSET
0,1
COMMENTS
I used a backward representation of the roots so that the least comes first: the results behaves like an economics or population curve. When taken as Modulo two one can see a pattern like that of Pascal's triangle in the zeros and ones. The alternating (t-1)^n polynomials are solved as: (t-1)^n=1 and instead of the 2^n coefficients, the roots are used for sequence. It is a unique new approach to the problem of Pascal's triangle.
FORMULA
a(n) = Table[Table[Floor[2^(n - 1)*Abs[x]] /. NSolve[(x - 1)^n - 1 == 0.x][[m]], {m, n, 1, -1}], {n, 1, 10}]
EXAMPLE
Triangular form of the sequence:
{2}
{0, 4}
{4, 4, 8}
{0, 11, 11, 16}
{9, 9, 25, 25, 32}
{0, 31, 31, 55, 55, 64}
MATHEMATICA
Table[Table[Floor[2^(n - 1)*Abs[x]] /. NSolve[(x - 1)^n - 1 == 0.x][[m]], {m, n, 1, -1}], {n, 1, 10}] Flatten[a]
CROSSREFS
KEYWORD
nonn,uned,obsc
AUTHOR
Roger L. Bagula, Mar 21 2006
STATUS
approved