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 A061876 #5 Jan 05 2013 14:46:15 %S A061876 7,18,29,70,81,92,106,117,128,139,180,191,205,216,227,238,249,290,304, %T A061876 315,326,337,348,359,403,414,425,436,447,458,469,502,513,524,535,546, %U A061876 557,568,579,601,612,623,634,645,656,667,678,689,700,711,722,733,744 %N A061876 |First digit - second digit + third digit - fourth digit ...| = 7. %H A061876 Harvey P. Dale, <a href="/A061876/b061876.txt">Table of n, a(n) for n = 1..1000</a> %t A061876 Do[ a = IntegerDigits[ n ]; l = Length[ a ]; e = o = {}; Do[ o = Append[ o, a[[ 2k - 1 ] ]], {k, 1, l/2 + .5} ]; Do[ e = Append[ e, a[[ 2k ] ]], {k, 1, l/2} ]; If[ Abs[ Apply[ Plus, o ] - Apply[ Plus, e ]] == 7, Print[ n ]], {n, 1, 1000} ] %t A061876 Select[Range[1000],Abs[Total[Times@@@Partition[Riffle[IntegerDigits[#],{1,-1},{2,-1,2}],2]]]==7&] (* _Harvey P. Dale_, Jan 05 2013 *) %Y A061876 Cf. A008593, A060978-A060980, A060982, A061470-A061479, A061870-A061882. %K A061876 nonn,base,easy %O A061876 1,1 %A A061876 _Robert G. Wilson v_, May 10 2001