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 A165455 #12 Feb 11 2016 22:57:10 %S A165455 53,59,71,163,167,251,523,577,613,643,773,787,811,827,863,881,883,919, %T A165455 937,1097,1117,1301,1567,1607,1709,1777,1867,1873,1877,1889,1931,2161, %U A165455 2237,2309,2447,2521,2591,2647,2687,2719,2843,2897,2969,3011,3079,3163 %N A165455 Primes p such that p^2 is a sum of three distinct positive cubes. %H A165455 Chai Wah Wu, <a href="/A165455/b165455.txt">Table of n, a(n) for n = 1..1000</a> %F A165455 A000040 INTERSECT A165454. %F A165455 {p: p in A000040 and p^2 in A024975}. [_R. J. Mathar_, Oct 07 2009] %t A165455 lst={};Do[Do[Do[d=Sqrt[a^3+b^3+c^3];If[d<=834&&IntegerQ[d]&&PrimeQ[d], AppendTo[lst,d]],{c,b+1,5!,1}],{b,a+1,5!,1}],{a,5!}];Union@lst %Y A165455 Cf. A161992, A165454. %K A165455 nonn %O A165455 1,1 %A A165455 _Vladimir Joseph Stephan Orlovsky_, Sep 20 2009 %E A165455 Extended beyond 827 by _R. J. Mathar_, Oct 07 2009 %E A165455 Title corrected by _Jeppe Stig Nielsen_, Jan 26 2015