OFFSET
1,1
FORMULA
a(n) = A001097(n) mod 5.
MATHEMATICA
Mod[Select[Prime[Range[300]], PrimeQ[# - 2] || PrimeQ[# + 2] &], 5] (* T. D. Noe, May 21 2012 *)
Mod[Union[Flatten[Select[Partition[Prime[Range[300]], 2, 1], #[[2]]-#[[1]] == 2&]]], 5] (* Harvey P. Dale, Apr 25 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jiri Mazurek, May 17 2012
STATUS
approved