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 A180099 #9 Sep 26 2020 13:42:41
%S A180099 185527,451837,591751,1265471,1266929,1618973,1626227,1664713,2586277,
%T A180099 2754683,2765519,2805193,3422303,3740309,3748499,4154779,5336479,
%U A180099 5483953,5557987,6130151,6586091,7231013,7361801,7726571,8205553
%N A180099 Primes which are the sum of three distinct positive cubes of prime numbers in two or more distinct ways.
%H A180099 Chai Wah Wu, <a href="/A180099/b180099.txt">Table of n, a(n) for n = 1..10000</a>
%e A180099 185527 = 47^3+43^3+13^3=53^3+31^3+19^3.
%t A180099 lst={};Do[Do[Do[If[PrimeQ[p=Prime[a]^3+Prime[b]^3+Prime[c]^3],AppendTo[lst,p]],{c,b-1,1,-1}],{b,a-1,1,-1}],{a,88}];lst1=Sort@lst; lst={};Do[If[lst1[[n]]==lst1[[n+1]],AppendTo[lst,lst1[[n]]]],{n,Length[lst1]-1}];lst
%t A180099 Select[Tally[Select[Total/@Subsets[Prime[Range[50]]^3,{3}],PrimeQ]],#[[2]]> 1&] [[All,1]]//Sort (* _Harvey P. Dale_, Sep 26 2020 *)
%Y A180099 Cf. A011541, A024974, A025400, A122723, A180088, A180089.
%K A180099 nonn
%O A180099 1,1
%A A180099 _Vladimir Joseph Stephan Orlovsky_, Aug 09 2010