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 A080088 #9 Feb 28 2020 04:12:43
%S A080088 2,3,3,7,11,5,5,19,23,7,31,7,9,43,47,9,59,11,67,71,11,79,83,13,13,11,
%T A080088 103,107,13,15,127,131,15,139,17,151,17,163,167,15,179,19,191,19,15,
%U A080088 199,211,223,227,17,21,239,19,251,17,263,23,271,23,21,283,19,307,311,25,25
%N A080088 Let r+i*s be the sum of the first-quadrant Gaussian primes dividing prime(n); sequence gives r values.
%H A080088 Amiram Eldar, <a href="/A080088/b080088.txt">Table of n, a(n) for n = 1..10000</a>
%t A080088 s[n_] := Module[{f = FactorInteger[n, GaussianIntegers->True]}, p = f[[;;,1]]; e = f[[;;,2]]; Re[Plus @@ ((If[Abs[#]==1, 0, #]& /@ p) * e)]]; s /@ Select[ Range[100], PrimeQ] (* _Amiram Eldar_, Feb 28 2020 *)
%Y A080088 Cf. A078908, A078909, A080089.
%K A080088 nonn
%O A080088 1,1
%A A080088 _Vladeta Jovovic_, Jan 27 2003