OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 107 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5.
a(2) = 293 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(3) = 349 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 3^5.
a(4) = 653 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5 + 3^5.
MATHEMATICA
up = 5000; q = Range[up^(1/5)]^5; a={0}; Do[b = Select[Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 14}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 12 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Sep 25 2006
EXTENSIONS
More terms from Harvey P. Dale, Jan 01 2015
4 missing terms from Giovanni Resta, Jun 12 2016
STATUS
approved