OFFSET
0,1
EXAMPLE
a(3)=479, because 479^3 = 47^3 +350^3 + 406^3 = 109^3 + 293^3 + 437^3= 256^3 + 311^3 + 398^3 and no prime less than 479 has 3 solutions.
MATHEMATICA
a = Table[SelectFirst[Table[{p, Length@Select[PowersRepresentations[p^3, 3, 3], #[[1]] > 0 &]}, {p, Prime@Range@200}], #[[2]] == k &], {k, 0, 6}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zhining Yang, Dec 28 2024
STATUS
approved