|
%I #30 Apr 25 2018 10:19:08
%S 3,0,2,1,3,2,4,4,1,1,3,4,1,1,3,1,3,2,4,2,4,4,1,4,1,1,3,2,4,2,4,4,1,4,
%T 1,1,3,1,3,2,4,4,1,1,3,1,3,1,3,4,1,4,1,2,4,1,3,4,1,4,1,1,3,2,4,2,4,1,
%U 3,4,1,1,3,4,1,1,3,1,3,1,3,4,1,2,4,4,1,1
%N Twin primes modulo 5.
%F a(n) = A001097(n) mod 5.
%t Mod[Select[Prime[Range[300]], PrimeQ[# - 2] || PrimeQ[# + 2] &], 5] (* _T. D. Noe_, May 21 2012 *)
%t Mod[Union[Flatten[Select[Partition[Prime[Range[300]],2,1],#[[2]]-#[[1]] == 2&]]],5] (* _Harvey P. Dale_, Apr 25 2018 *)
%K nonn
%O 1,1
%A _Jiri Mazurek_, May 17 2012
|
