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.

A123597 Primes of the form p^3 + q^3 + r^3, where p, q and r are primes.

This page as a plain text file.
%I A123597 #11 Apr 08 2022 13:21:40
%S A123597 43,179,277,359,397,593,811,1483,2017,2213,2251,2447,2689,4421,4519,
%T A123597 4967,5381,6271,7109,7229,9181,9521,10169,11897,12853,13103,13841,
%U A123597 14489,16561,17107,20357,24443,24677,25747,26711,27917,30161,30259,31193,31247,32579,36161
%N A123597 Primes of the form p^3 + q^3 + r^3, where p, q and r are primes.
%C A123597 a(n) is a subset of A007490(n) = {3, 17, 29, 43, 73, 127, 179, 197, 251, 277, ...}, i.e., primes of the form x^3 + y^3 + z^3.
%e A123597 a(1) = 43 because 43 = 2^3 + 2^3 + 3^3 is prime and 2^3 + 2^3 + 2^3 = 24 is composite.
%t A123597 lst={};Do[Do[Do[p=n^3+m^3+k^3;If[PrimeQ[p]&&PrimeQ[n]&&PrimeQ[m]&&PrimeQ[k],AppendTo[lst,p]],{n,4!}],{m,4!}],{k,4!}];Take[Union[lst],16] (* _Vladimir Joseph Stephan Orlovsky_, May 23 2009 *)
%t A123597 With[{nn=40},Select[Total/@Tuples[Prime[Range[nn]]^3,3],PrimeQ[#]&&#<= nn^3+ 16&]]//Union (* _Harvey P. Dale_, Sep 08 2021 *)
%Y A123597 Cf. A007490 = Primes of form x^3 + y^3 + z^3.
%K A123597 nonn
%O A123597 1,1
%A A123597 _Alexander Adamchuk_, Nov 14 2006