OFFSET
1,3
COMMENTS
A174309 is a subsequence of this sequence.
MATHEMATICA
s = {}; Do[k = PolynomialQuotient[(x^n + 1), (x + 1), x]; d = Discriminant[k, x]; AppendTo[s, k /. x -> d], {n, 1, 10}]; s
CROSSREFS
KEYWORD
sign
AUTHOR
Artur Jasinski, Mar 15 2010
STATUS
approved