|
%I #13 Mar 30 2012 17:35:08
%S 2,6,8,9,10,11,12,13,14,18,19,20,21,24,26,27,28,29,30,31,32,33,34,35,
%T 36,37,38,39,40,41,42,44,45,46,47,48,49,50,51,52,53,54,55,56,57,59,60,
%U 61,62,64,65,66,67,68,69
%N Numbers n such that n^5 = a^2 + b^3 + c^5 for some positive integers a, b, and c.
%C Some can be expressed in more than one way.
%e 10^5 = 168^2 + 40^3 + 6^5 = 280^2 + 24^3 + 6^5.
%o (Maxima) isA206476(n) := block(
%o [a,b,c,v],
%o v : false ,
%o for c : 1 while c < n and not v do (
%o for b : 1 while b^3+c^5 < n^5 and not v do (
%o for a : isqrt(n^5-c^5-b^3) while a^2+b^3+c^5 <= n^5 and not v do (
%o if equal(a^2+b^3+c^5, n^5) then v : true
%o )
%o )
%o ),
%o return(v)
%o )$
%o for n : 1 thru 100 do (
%o if equal(isA206476(n), true ) then print(n)
%o )$ /* R. J. Mathar, Feb 27 2012 */
%K nonn
%O 1,1
%A _Carmine Suriano_, Feb 08 2012
|
