OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
EXAMPLE
113 = 81+16+16 is in the sequence.
MATHEMATICA
Select[Prime@ Range[2^12], And[Length[#] > 0, AnyTrue[#, AllTrue[#, # > 0 &] &]] &@ PowersRepresentations[#, 3, 4] &] (* Michael De Vlieger, Aug 10 2023 *)
PROG
(PARI) lista(nn) = {v = vector(nn, i, i^4); w = vector(0); for (i=1, nn, for (j=1, nn, for (k=1, nn, w = Set(concat(w, v[i]+v[j]+v[k])); ); ); ); for (i=1, #w, if (isprime(wp=w[i]) && (wp < vecmax(v)), print1(wp, ", ")); ); } \\ Michel Marcus, Dec 19 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 01 2003
STATUS
approved