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 A126657 #6 Nov 21 2013 12:49:02 %S A126657 353,1553,5393,6833,7187,7793,7873,8963,9043,9587,10337,11953,13697, %T A126657 14177,14723,16193,17123,20753,21283,21377,21617,23603,25457,28643, %U A126657 29873,30113,30817,31393,35393,35747,39857,43283,45233,45377,46273 %N A126657 Prime numbers that are the sum of three distinct positive fourth powers. %e A126657 1553= 1^4 + 4^4 + 6^4 = 1 + 256 + 1296. %e A126657 6833 = 2^4 + 4^4 + 9^4 = 16 + 256 + 6561. %e A126657 21377 = 2^4 + 5^4 + 12^4 = 16 + 625 + 20736. %e A126657 35747 = 5^4 + 9^4 + 13^4 = 625 + 6561 + 28561. %t A126657 Union[Select[Total/@Subsets[Range[20]^4,{3}],PrimeQ]] (* _Harvey P. Dale_, May 08 2012 *) %o A126657 (PARI) {m=15;p=m^4;v=vector(m,x,x^4);w=[];for(i=1,m-2,for(j=i+1,m-1, for(k=j+1,m,if((n=v[i]+v[j]+v[k])<p&&isprime(n),w=concat(w,n))))); w=listsort(List(w),1);for(j=1,#w-1,print1(w[j],","))} /* Klaus Brockhaus, Feb 11 2007 */ %Y A126657 Cf. A125516, A126658. %K A126657 nonn %O A126657 1,1 %A A126657 _Tomas Xordan_, Feb 09 2007 %E A126657 Edited, corrected and extended by _Klaus Brockhaus_, Feb 11 2007