|
%I #6 Apr 19 2016 01:07:35
%S 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,
%T 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,
%U 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
%N a(n) = prime(n) + prime(n+k) mod 3, where k = (1/2)*(prime(n+1) - prime(n)).
%t 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 *)
%Y Cf. A103270.
%K nonn
%O 2,1
%A _Yasutoshi Kohmoto_, Apr 08 2005
%E More terms from _Robert G. Wilson v_, Apr 08 2005
|
