A118125 Difference between the even Lucky numbers (A045954) minus the odd Lucky numbers (A000959).

-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

Offset: 1

Author

Robert G. Wilson v, May 11 2006

Keywords

• easy
• sign

Crossrefs

Cf. A000959, A045954.

Programs

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

Formula

a(n) = A045954(n) - A000959(n).