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

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

Offset

2,1

Links

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

Mathematica

f[n_] := Mod[Prime[n] + Prime[n + (Prime[n + 1] - Prime[n])/2], 3]; Table[ f[n], {n, 2, 106}] (* Robert G. Wilson v, Apr 08 2005 *)

Crossrefs

Cf. A103270.

Sequence in context: A158777 A039970 A179212 * A245359 A103271 A029832

Adjacent sequences: A105115 A105116 A105117 * A105119 A105120 A105121

Keyword

nonn

Author

Yasutoshi Kohmoto, Apr 08 2005

Extensions

More terms from Robert G. Wilson v, Apr 08 2005

Status

approved