|
Search: id:A118125
|
|
| |
|
| -1, -1, 1, -1, 1, -3, 1, 3, 5, -1, 1, 1, 5, 1, 11, 13, 11, 5, 5, 3, 3, 3, 1, 5, 9, 7, 13, 13, 15, 5, 9, 13, 19, 15, 19, 7, 19, 21, 17, 19, 19, 15, 21, 11, 17, 17, 9, 11, 25, 17, 21, 13, 21, 17, 11, 15, 13, 9, 19, 13, 17, 17, 15, 23, 25, 15, 13, 27, 29, 21, 25, 23, 27, 31, 33, 23, 15, 31, 37, 41
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
FORMULA
|
a(n) = A045954(n) - A000959(n).
|
|
MATHEMATICA
|
ev = Range[2, 435, 2]; i = 2; While[ i <= (len = Length@ev) && (k = ev[[i]]) <= len, ev = Drop[ev, {k, len, k}]; i++ ]; od = Range[1, 476, 2]; i = 2; While[ i <= (len = Length@od) && (k = od[[i]]) <= len, od = Drop[od, {k, len, k}]; i++ ]; od - ev
|
|
CROSSREFS
|
Cf. A000959, A045954.
Sequence in context: A021323 A076157 A087493 this_sequence A143732 A130465 A113759
Adjacent sequences: A118122 A118123 A118124 this_sequence A118126 A118127 A118128
|
|
KEYWORD
|
easy,sign
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 11 2006
|
|
|
Search completed in 0.002 seconds
|
