|
|
A290739
|
|
a(n) = 0 unless n = 3j^2+2j or 3j^2+4j+1 for some j>=0, in which case a(n) = (-1)^(j+1).
|
|
6
|
|
|
-1, -1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
eps:=Array(0..120, 0);
for j from 0 to 120 do
if 3*j^2+2*j <= 120 then eps[3*j^2+2*j] := (-1)^(j+1); fi;
if 3*j^2+4*j+1 <= 120 then eps[3*j^2+4*j+1] := (-1)^(j+1); fi;
od;
|
|
PROG
|
(PARI)
up_to = 65537;
A290739list(up_to) = { my(v=vector(1+up_to), c1, c2); for(j=0, oo, c1 = ((3*j*j)+j+j); if(c1>up_to, return(v), v[1+c1] = (-1)^(1+j)); c2 = ((3*j*j) + (4*j) + 1); if(c2<=up_to, v[1+c2] = (-1)^(1+j))); };
v290739 = A290739list(up_to);
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|