|
| |
|
|
A161610
|
|
Primes which are the sum of 3 distinct positive 5th powers.
|
|
1
|
|
|
|
9043, 17863, 32801, 40787, 43669, 50599, 62417, 76099, 101267, 104149, 107777, 135893, 160073, 164419, 249107, 249857, 256609, 259733, 266663, 340649, 348833, 365639, 430343, 504061, 545843, 554663, 604649, 627901, 640949, 762743, 776183
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Intersection of the A000040 with the sequence 276, 1057, 1268, 1299, 3158,... of sums of 3 distinct positive 5th powers. [R. J. Mathar, Jun 18 2009]
|
|
|
LINKS
|
Harvey P. Dale, Table of n, a(n) for n = 1..5000
|
|
|
EXAMPLE
|
9043=6^5+4^5+3^5. 17863=7^5+4^5+2^5. 32801=8^5+2^5+1^5. 40787=8^5+6^5+3^5, 43669=8^5+6^5+5^5.
|
|
|
MATHEMATICA
|
lst={}; Do[Do[Do[p=n^5+m^5+k^5; If[PrimeQ[p], AppendTo[lst, p]], {n, m+1, 3*4!}], {m, k+1, 6!}], {k, 2*6!}]; Take[Union[lst], 5! ]
Module[{upto=10^6}, Select[Total/@Subsets[Range[Ceiling[Surd[upto, 5]]]^5, {3}], PrimeQ[#]&&#<=upto&]]//Union (* Harvey P. Dale, May 01 2019 *)
|
|
|
CROSSREFS
|
Cf. A085319, A003348.
Sequence in context: A031773 A128374 A210179 * A204535 A202914 A252443
Adjacent sequences: A161607 A161608 A161609 * A161611 A161612 A161613
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Jun 14 2009
|
|
|
STATUS
|
approved
|
| |
|
|
