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).

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, 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, 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

Offset

1,1

Links

Table of n, a(n) for n=1..100.

Mathematica

a[n_] := Apply[Plus, IntegerDigits[27*666*Sum[Prime[n + m], {m, 0, 7}]]]; Table[1 - Mod[a[n], 2], {n, 1, 100}]

Crossrefs

Sequence in context: A288106 A286939 A025125 * A103589 A305388 A123740

Adjacent sequences: A147870 A147871 A147872 * A147874 A147875 A147876

Keyword

nonn,base,less,uned

Author

E.J.P. Vening and Roger L. Bagula, Nov 16 2008

Status

approved