This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A271829 Prime powers p^k such that p^k = x^3 + y^3 + z^3 where x, y, z are positive integers and k > 1, is soluble. 0
 81, 729, 2187, 2809, 3481, 5041, 6859, 14641, 15625, 19683, 24389, 26569, 27889, 59049, 63001, 68921, 83521, 148877, 273529, 300763, 332929, 357911, 375769, 413449, 531441, 597529, 619369, 657721, 683929, 704969, 707281, 744769, 776161, 779689, 844561, 877969, 912673 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Obviously, this sequence is infinite. Intersection of A003072 and A025475. The first terms of this sequence are 3^4, 3^6, 3^7, 53^2, 59^2, 71^2, 19^3, 11^4, 5^6, 3^9, 29^3, 163^2, 167^2, 3^10, ... LINKS EXAMPLE 81 is a term because 81 = 3^4 = 3^3 + 3^3 + 3^3. MATHEMATICA Select[Range[10^6], And[! PrimeQ@ #, PrimePowerQ@ #, Length[PowersRepresentations[#, 3, 3] /. {0, __} -> Nothing] > 0] &] (* Michael De Vlieger, Apr 17 2016 *) PROG (PARI) list(lim) = my(v=List(), k, t); lim\=1; for(x=1, sqrtnint(lim-2, 3), for(y=1, min(sqrtnint(lim-x^3-1, 3), x), k=x^3+y^3; for(z=1, min(sqrtnint(lim-k, 3), y), if(isprimepower(k+z^3) && !isprime(k+z^3), listput(v, k+z^3))))); Set(v); CROSSREFS Cf. A003072, A007490, A025475. Sequence in context: A235946 A090257 A295233 * A066431 A206086 A224002 Adjacent sequences:  A271826 A271827 A271828 * A271830 A271831 A271832 KEYWORD nonn,easy AUTHOR Altug Alkan, Apr 15 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 23 02:29 EST 2019. Contains 320411 sequences. (Running on oeis4.)