|
%I #18 Mar 07 2022 15:47:59
%S 0,0,1,9,0,19,9,18,17,0,24,38,36,12,65,106,0,128,97,30,100,148,168,
%T 154,100,0,113,198,249,260,225,138,356,163,297,389,0,423,353,217,9,
%U 248,441,17,80,79,8,506,297,0,316,574,17,119,145,89,784,568,252,737,225,548
%N Smallest integer >= 0 of the form x^2 - n^3.
%C a(n)=0 iff n is a square.
%F a(n) = ceiling(n^(3/2))^2 - n^3 = A077115(n) - n^3.
%e A077115(10) = 1024 = 32^2 is the least square >= 10^3 = 1000, therefore a(10) = 1024 - 1000 = 24.
%t f[n_]=Ceiling[n^(3/2)]^2-n^3;
%t t1=Table[f[n], {n, 1, 90}]; t1 (* _Clark Kimberling_, Jan 30 2011 *)
%o (PARI) for(n=1,100,print1(ceil(n^(3/2))^2-n^3,","))
%Y Cf. A000578, A077116, A077118, A077119, A070923, A068527.
%K easy,nonn
%O 0,4
%A _Benoit Cloitre_, May 20 2002
|
