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 A123299 #10 Jun 13 2016 07:06:27
%S A123299 13,137,199,317,379,503,683,739,863,1049,1129,1223,1229,1409,1433,
%T A123299 1471,1613,1619,1831,1949,1979,2011,2221,2339,2543,2549,2729,2791,
%U A123299 2909,2917,2971,3089,3137,3299,3307,3323,3331,3361,3511,3541,3659,3863,3877,3931,4049
%N A123299 Prime sums of 13 positive 5th powers.
%H A123299 Giovanni Resta, <a href="/A123299/b123299.txt">Table of n, a(n) for n = 1..10000</a>
%F A123299 A000040 INTERSECTION A123299.
%e A123299 a(1) = 13 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5.
%e A123299 a(2) = 137 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5.
%e A123299 a(3) = 199 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5.
%e A123299 a(4) = 317 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 3^5.
%t A123299 up = 4100; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[ Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 13}]; Select[a, PrimeQ] (* _Giovanni Resta_, Jun 12 2016 *)
%Y A123299 Cf. A000584, A003336, A003347, A003349, A003350, A003351, A003352, A003353, A003354, A003355, A003356, A003357, A123294, A123295, A008480.
%K A123299 easy,nonn
%O A123299 1,1
%A A123299 _Jonathan Vos Post_, Sep 24 2006
%E A123299 a(10)-a(45) from _Giovanni Resta_, Jun 12 2016