|
%I #7 Jun 06 2013 19:07:50
%S 9,16,128,243,512,841,1024,1849,5041,6561,8192,32041,65536,76729,
%T 157609,177147,187489,310249,524288,734449,1104601,4108729,4194304,
%U 4782969,5067001,7778521,11498881,12823561,31956409,33554432,38651089,65302561,78552769,90459121,129140163
%N Nontrivial prime powers (A025475) which are a sum of a smaller nontrivial prime power and a perfect cube.
%p for n from 1 do
%p if isA025475(n) then
%p for j from 1 do
%p pj := n-j^3 ;
%p if pj < 0 then
%p break;
%p elif isA025475(pj) then
%p printf("%d,\n",n);
%p break ;
%p end if;
%p end do:
%p end if:
%p end do: # _R. J. Mathar_, Jun 06 2013
%Y Cf. A025475, A226230, A226231.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, May 31 2013
|
