cp's OEIS Frontend

A226232 Nontrivial prime powers (A025475) which are a sum of a smaller nontrivial prime power and a perfect cube.

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