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 A239395 #15 Sep 19 2023 06:26:13
%S A239395 2,2,0,0,2,0,2,0,2,0,0,2,0,2,2,0,0,2,0,2,0,0,2,2,3,1,1,1,2,2,2,0,2,2,
%T A239395 0,2,2,0,2,2,1,3,1,1,1,1,3,1,1,1,1,3,0,2,2,2,4,2,0,0,4,0,2,0,4,0,0,2,
%U A239395 3,3,1,1,3,1,3,1,3,1,1,3,2,4,0,0,2,0,4,0
%N A239395 Twice prime nonnegative Hurwitz quaternions shown as 4-vectors sorted by norm and then (1,i,j,k) components.
%C A239395 The vectors are multiplied by 2 because a Hurwitz quaternion can have half-integer integer components. The norms of quaternions are (rational) primes 2, 3, 5, 7, 11, ... A quaternion is commonly written a + b*i + c*j + d*k, where 1, i, j, and k are units.
%H A239395 T. D. Noe, <a href="/A239395/b239395.txt">Table of n, a(n) for n = 1..2612</a> (4-vectors)
%H A239395 Wikipedia, <a href="http://en.wikipedia.org/wiki/Hurwitz_quaternion">Hurwitz quaternion</a>.
%t A239395 (* first << Quaternions` *) mx = 5; lst = Flatten[Table[{a, b, c, d}/2, {a, 0, mx}, {b, 0, mx}, {c, 0, mx}, {d, 0, mx}], 3]; q = Select[lst, Norm[Quaternion @@ #] < mx^2 && PrimeQ[Quaternion @@ #, Quaternions -> True] &]; 2*Sort[q, Norm[#1] < Norm[#2] &]
%Y A239395 Cf. A239393 (Lipschitz quaternions).
%Y A239395 Cf. A239396 (number of Hurwitz quaternions having norm prime(n)).
%K A239395 nonn,nice,tabf
%O A239395 1,1
%A A239395 _T. D. Noe_, Mar 21 2014