OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=a^5+b^3; If[p<5000, AppendTo[lst, p]], {a, 64}, {b, 1024}]; Union[lst]
PROG
(PARI) is(n)=for(y=1, sqrtnint(n-1, 5), if(ispower(n-y^5, 3), return(1))); 0 \\ Charles R Greathouse IV, Jun 06 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved