cp's OEIS Frontend

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.

A126657 Prime numbers that are the sum of three distinct positive fourth powers.

This page as a plain text file.
%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