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 A239394 #10 Mar 31 2014 17:40:20
%S A239394 6,4,12,4,12,16,24,16,12,36,16,28,48,28,24,48,48,52,40,36,52,40,60,84,
%T A239394 64,96,52,72,76,84,64,96,96,88,120,76,100,88,84,132,120,124,96,112,
%U A239394 132,100,124,112,144,148,156,120,160,168,180,132,204,136,160,204
%N A239394 Number of prime nonnegative Lipschitz quaternions having norm prime(n).
%C A239394 For n > 1, there are prime(n) + 1 more nonnegative Hurwitz quaternions than nonnegative Lipschitz quaternions. - T. D. Noe, Mar 31 2014
%H A239394 Wikipedia, <a href="http://en.wikipedia.org/wiki/Hurwitz_quaternion">Hurwitz quaternion</a>
%e A239394 The six prime nonnegative Lipschitz quaternions having norm 2 are 1+i, 1+j, 1+k, i+j, i+k, and j+k.
%t A239394 (* first << Quaternions` *) mx = 17; lst = Flatten[Table[{a, b, c, d}, {a, 0, mx}, {b, 0, mx}, {c, 0, mx}, {d, 0, mx}], 3]; q = Select[lst, Norm[Quaternion @@ #] < mx^2 && PrimeQ[Quaternion @@ #, Quaternions -> True] &]; q2 = Sort[q, Norm[#1] < Norm[#2] &]; Transpose[Tally[(Norm /@ q2)^2]][[2]]
%Y A239394 Cf. A239393 (prime Lipschitz quaternions).
%Y A239394 Cf. A239395 (prime Hurwitz quaternions).
%K A239394 nonn
%O A239394 1,1
%A A239394 _T. D. Noe_, Mar 21 2014