%I #19 Dec 03 2024 15:10:43
%S 27,216,343,1331,1728,2744,3375,6859,9261,10648,12167,13824,19683,
%T 21952,27000,29791,35937,42875,54872,59319,74088,79507,85184,97336,
%U 103823,110592,132651,157464,166375,175616,185193,205379,216000,238328,250047
%N Cubes which do not have a partition as the sum of 2 squares.
%H Amiram Eldar, <a href="/A125111/b125111.txt">Table of n, a(n) for n = 1..10000</a>
%F Equals A000578 INTERSECT A022544. - _R. J. Mathar_, Nov 23 2006
%F a(n) = A022544(n)^3. - _Ray Chandler_, Nov 23 2006
%t Select[Range[0, 65]^3, SquaresR[2, # ] == 0 &] (* _Ray Chandler_, Nov 23 2006 *)
%o (PARI) isA125111(ncube)={ local(a) ; a=0; while(a^2<=ncube, if(issquare(ncube-a^2), return(0) ; ) ; a++ ; ) ; return(1) ; } { for(n=0,200, if(isA125111(n^3), print1(n^3,",") ; ) ; ) ; } \\ _R. J. Mathar_, Nov 23 2006
%Y Cf. A000578, A022544, A125084, A125110.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 21 2006
%E More terms from _R. J. Mathar_ and _Ray Chandler_, Nov 23 2006