A132983 - OEIS

%I #13 Sep 29 2017 02:49:43

%S 2,3,3,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,

%T 6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,

%U 7,8,8,8,8,8,8,8,8,8

%N a(n) = ceiling(n^(1/3) + n^(1/4)).

%H G. C. Greubel, <a href="/A132983/b132983.txt">Table of n, a(n) for n = 1..5000</a>

%t Table[Ceiling[Surd[n,3]+Surd[n,4]],{n,80}] (* _Harvey P. Dale_, May 07 2014 *)

%o (PARI) for(n=1, 50, print1(ceil(n^(1/3) + n^(1/4)), ", ")) \\ _G. C. Greubel_, Sep 28 2017

%Y Cf. A000196, A003059, A134914, A134915, A134916.

%K nonn

%O 1,1

%A _Mohammad K. Azarian_, Nov 18 2007