This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A244738 #14 Apr 21 2021 04:22:00
%S A244738 2,0,0,2,1,0,2,1,0,1,1,2,1,0,2,0,1,1,2,1,0,1,0,1,2,1,0,2,1,0,2,1,2,1,
%T A244738 1,1,2,0,2,0,1,1,1,0,2,1,1,0,2,1,0,1,1,1,2,0,1,1,2,1,0,0,2,1,0,2,1,2,
%U A244738 2,1,0,1,2,0,1,0,1,2,1,1,1,1,1,0,1,0
%N A244738 a(n) = (prime(n) mod 5) mod 3.
%H A244738 Clark Kimberling, <a href="/A244738/b244738.txt">Table of n, a(n) for n = 1..4000</a>
%e A244738 n ... prime(n) mod 5 mod 3
%e A244738 1 ..... 2 ..... 2 ... 2
%e A244738 2 ..... 3 ..... 3 ... 0
%e A244738 3 ..... 5 ..... 0 ... 0
%e A244738 4 ..... 7 ..... 2 ... 2
%e A244738 5 ..... 11 .... 1 ... 1
%e A244738 6 ..... 13 .... 3 ... 0
%t A244738 z = 300; u = Mod[Table[Mod[Prime[n], 5], {n, 1, z}], 3] (* A244738 *)
%t A244738 v1 = Flatten[Position[u, 0]] (* A244739 *)
%t A244738 v2 = Flatten[Position[u, 1]] (* A024707 *)
%t A244738 v3 = Flatten[Position[u, 2]] (* A244741 *)
%t A244738 Mod[Mod[Prime[Range[90]],5],3] (* _Harvey P. Dale_, Aug 14 2019 *)
%Y A244738 Cf. A039703, A244739, A024707, A244741, A244735.
%K A244738 nonn,easy
%O A244738 1,1
%A A244738 _Clark Kimberling_, Jul 05 2014