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 A161610 #9 May 01 2019 16:59:40
%S A161610 9043,17863,32801,40787,43669,50599,62417,76099,101267,104149,107777,
%T A161610 135893,160073,164419,249107,249857,256609,259733,266663,340649,
%U A161610 348833,365639,430343,504061,545843,554663,604649,627901,640949,762743,776183
%N A161610 Primes which are the sum of 3 distinct positive 5th powers.
%C A161610 Intersection of the A000040 with the sequence 276, 1057, 1268, 1299, 3158,... of sums of 3 distinct positive 5th powers. [_R. J. Mathar_, Jun 18 2009]
%H A161610 Harvey P. Dale, <a href="/A161610/b161610.txt">Table of n, a(n) for n = 1..5000</a>
%e A161610 9043=6^5+4^5+3^5. 17863=7^5+4^5+2^5. 32801=8^5+2^5+1^5. 40787=8^5+6^5+3^5, 43669=8^5+6^5+5^5.
%t A161610 lst={};Do[Do[Do[p=n^5+m^5+k^5;If[PrimeQ[p],AppendTo[lst,p]],{n,m+1,3*4!}], {m,k+1,6!}],{k,2*6!}];Take[Union[lst],5! ]
%t A161610 Module[{upto=10^6},Select[Total/@Subsets[Range[Ceiling[Surd[upto,5]]]^5,{3}], PrimeQ[#]&&#<=upto&]]//Union (* _Harvey P. Dale_, May 01 2019 *)
%Y A161610 Cf. A085319, A003348.
%K A161610 nonn
%O A161610 1,1
%A A161610 _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009