A147873 - OEIS

%I #12 Apr 19 2015 00:16:20

%S 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 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 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 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 a[n_] := Apply[Plus, IntegerDigits[27*666*Sum[Prime[n + m], {m, 0, 7}]]]; Table[1 - Mod[a[n], 2], {n, 1, 100}]

%K nonn,base,less,uned

%O 1,1

%A _E.J.P. Vening_ and _Roger L. Bagula_, Nov 16 2008