This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A118125 #3 Mar 30 2012 17:31:18 %S 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, %T A118125 5,9,13,19,15,19,7,19,21,17,19,19,15,21,11,17,17,9,11,25,17,21,13,21, %U A118125 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 %N A118125 Difference between the even Lucky numbers (A045954) minus the odd Lucky numbers (A000959). %F A118125 a(n) = A045954(n) - A000959(n). %t A118125 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 %Y A118125 Cf. A000959, A045954. %K A118125 easy,sign %O A118125 1,6 %A A118125 _Robert G. Wilson v_, May 11 2006