A055402 - OEIS

%I #24 Jun 09 2019 19:44:26

%S 1,2,3,4,5,6,7,15,23,50,114,330,1330,10591,215970,19464802,

%T 16542386125,409477218238718,1594640520554911022654,

%U 12254971660196485116306102211582,8256321288165573196207266557193504883194549246

%N Least number represented as the sum of n cubes with greedy algorithm.

%H Rick L. Shepherd, <a href="/A055402/b055402.txt">Table of n, a(n) for n = 1..28</a>

%F a(n) = a(n-1) + ceiling(sqrt(a(n-1)/3 + 1/4) - 1/2)^3 for n >= 2.

%e a(11) = 114 = 64 + 27 + 8 + 8 + 1 + 1 + 1 + 1 + 1 + 1 + 1.

%o (PARI)

%o {default(realprecision, 255); v = []; n = 1;

%o while(n < 29,

%o   if(n < 8,

%o     a = n, a = v[n-1] + ceil(sqrt(v[n-1]/3 + 1/4) - 1/2)^3);

%o   v = concat(v, a);

%o   write("b055402.txt", n, " ", v[n]); n++)}

%o \\ _Rick L. Shepherd_, Jan 30 2014

%Y Cf. A006892, A055401.

%K nonn

%O 1,2

%A _Henry Bottomley_, May 16 2000

%E More terms from _Vladeta Jovovic_, Jul 03 2001