OFFSET
1,5
COMMENTS
The denominators are given by A053644. (See the Mathematica section.)
MATHEMATICA
t = Table[IntegerDigits[n, 2], {n, 1, 1000}];
b[n_] := Reverse[Table[x^k, {k, 0, n}]]
p[n_, x_] := t[[n]].b[-1 + Length[t[[n]]]]
Table[p[n, x], {n, 1, 15}]
Table[p[n, x] /. x -> 1, {n, 1, 120}] (* A000120 *)
Table[p[n, x] /. x -> 2, {n, 1, 120}] (* A000027 *)
Table[p[n, x] /. x -> 3, {n, 1, 120}] (* A005836 *)
Table[p[n, x] /. x -> 4, {n, 1, 120}] (* A000695 *)
Table[p[n, x] /. x -> -1, {n, 1, 120}] (* A065359 *)
Table[p[n, x] /. x -> -2, {n, 1, 120}] (* A053985 *)
Numerator[Table[p[n, x] /. x -> 1/2, {n, 1, 120}] ] (* A030101 *)
Numerator[Table[p[n, x] /. x -> -1/2, {n, 1, 120}] ] (* A206076 *)
Denominator[Table[p[n, x] /. x -> -1/2, {n, 1, 120}] ] (* A053644 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Clark Kimberling, Feb 04 2012
STATUS
approved