cp's OEIS Frontend

A186152 Rank of (1/8)n^3 when {(1/8)i^3: i>=1} and {j^2>: j>=1} are jointly ranked with (1/8)i^3 before j^2 when (1/8)i^3=j^2. Complement of A186153.

%I A186152 #6 Mar 30 2012 18:57:18
%S A186152 1,2,4,6,8,11,13,15,18,21,23,26,29,32,35,38,41,44,48,51,55,58,61,65,
%T A186152 69,72,76,80,84,88,92,95,100,104,108,112,116,120,125,129,133,138,142,
%U A186152 147,151,156,160,165,170,174,179,184,189,194,199,204,209,214,219,224,229,234,239,245,250,255,260,266,271,277,282,287,293,299,304,310,315,321,327,332,338,344,350,356,362,367,373,379,385,391,397,403,410,416,422,428,434,440,447,453
%N A186152 Rank of (1/8)n^3 when {(1/8)i^3: i>=1} and {j^2>: j>=1} are jointly ranked with (1/8)i^3 before j^2 when (1/8)i^3=j^2.  Complement of A186153.
%C A186152 See A186145 for a discussion of adjusted joint rank sequences.
%F A186152 a(n)=n+floor(((1/8)n^3-1/16)^(1/2)), A186152.
%F A186152 b(n)=n+floor(((n^2)/16+1/2)^(1/3)), A186153.
%t A186152 d=1/16;u=1/8;v=1;p=3;q=2;
%t A186152 h[n_]:=((u*n^p-d)/v)^(1/q);
%t A186152 a[n_]:=n+Floor[h[n]]; (* rank of u*n^p *)
%t A186152 k[n_]:=((v*n^q+d)/u)^(1/p);
%t A186152 b[n_]:=n+Floor[k[n]]; (* rank of v*n^q *)
%t A186152 Table[a[n],{n,1,100}] (* A186152 *)
%t A186152 Table[b[n],{n,1,100}]  (* A186153 *)
%Y A186152 Cf. A186145, A186153.
%K A186152 nonn
%O A186152 1,2
%A A186152 _Clark Kimberling_, Feb 13 2011