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 A147873 #12 Apr 19 2015 00:16:20
%S A147873 0,0,1,0,0,0,0,0,1,0,1,1,1,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0,0,
%T A147873 0,1,1,1,0,1,1,1,0,1,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,
%U A147873 0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,0,0,1,1,1,0,1,1,1,0,0,0,0,1,1,1,1
%N A147873 A sequence based on the mechanics of A147781: b(n) = Apply[Plus, IntegerDigits( 17982*Sum_{m=0..7} Prime(n+m) )]; a(n) = 1-(b(n) mod 2).
%t A147873 a[n_] := Apply[Plus, IntegerDigits[27*666*Sum[Prime[n + m], {m, 0, 7}]]]; Table[1 - Mod[a[n], 2], {n, 1, 100}]
%K A147873 nonn,base,less,uned
%O A147873 1,1
%A A147873 _E.J.P. Vening_ and _Roger L. Bagula_, Nov 16 2008