A103272 a(n) = (prime(n-k) + prime(n)) mod 4, where k = (1/2)*(prime(n+1) - prime(n)).

1, 0, 2, 2, 0, 2, 0, 0, 0, 2, 2, 2, 0, 0, 2, 0, 0, 2, 2, 2, 2, 2, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 2, 0, 2, 2, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 0, 2, 2, 0, 0, 2, 2, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 2, 0, 0, 2, 0, 2, 0, 2, 2, 2, 2, 0, 2, 2, 2, 2, 0, 0, 0, 0, 0

Offset

2,3

Links

Table of n, a(n) for n=2..106.

Mathematica

Do[k = (Prime[n+1] - Prime[n])/2; Print[Mod[Prime[n-k]+Prime[n], 4]], {n, 3, 100}] (* Ryan Propper, Oct 07 2005 *)

Crossrefs

Sequence in context: A248017 A244606 A273127 * A065710 A089799 A073464

Adjacent sequences: A103269 A103270 A103271 * A103273 A103274 A103275

Keyword

nonn

Author

Yasutoshi Kohmoto, Jan 27 2005

Extensions

More terms from Ryan Propper and David Wasserman, Oct 07 2005

Status

approved