|
%I #4 Jun 30 2012 11:25:01
%S 0,1,3,6,8,15,15,28,24,27,35,66,42,91,63,60,64,153,81,190,90,105,143,
%T 276,118,125,195,162,154,435,165,496,192,209,323,210,216,703,399,260,
%U 253,861,273,946,297,309,575,1128,336,343,375,374,377,1431,405,440
%N Smallest integer x >= 0 satisfying x^2 - y^2 = n^3.
%C 33 is the smallest odd number with the property that n does not divide a(n).
%t lst = {}; Do[y = 0; While[True, s = Last@Last@Reduce[x^2 - y^2 == n^3, x]; If[IntegerQ[s], Break[]]; y++]; AppendTo[lst, s], {n, 55}]; Prepend[lst, 0]
%K nonn
%O 0,3
%A _Arkadiusz Wesolowski_, Jun 30 2012
|
