OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 13 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5.
a(2) = 137 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(3) = 199 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(4) = 317 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 3^5.
MATHEMATICA
up = 4100; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[ Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 13}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 12 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Sep 24 2006
EXTENSIONS
a(10)-a(45) from Giovanni Resta, Jun 12 2016
STATUS
approved