cp's OEIS Frontend

A186154 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 after j^2 when (1/8)i^3=j^2. Complement of A186155.

%I A186154 #4 Mar 30 2012 18:57:18
%S A186154 1,3,4,6,8,11,13,16,18,21,23,26,29,32,35,38,41,45,48,51,55,58,61,65,
%T A186154 69,72,76,80,84,88,92,96,100,104,108,112,116,120,125,129,133,138,142,
%U A186154 147,151,156,160,165,170,175,179,184,189,194,199,204,209,214,219,224,229,234,239,245,250,255,260,266,271,277,282,288,293,299,304,310,315,321,327,332,338,344,350,356,362,367,373,379,385,391,397,403,410
%N A186154 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 after j^2 when (1/8)i^3=j^2.  Complement of A186155.
%C A186154 A186154 results from changing "before" to "after" in the name of A186152.  See A186145 for a discussion of adjusted joint rank sequences.
%t A186154 d=-1/16; u=1/8; v=1; p=3; q=2;
%t A186154 h[n_]:=((u*n^p-d)/v)^(1/q);
%t A186154 a[n_]:=n+Floor[h[n]]; (* rank of u*n^p *)
%t A186154 k[n_]:=((v*n^q+d)/u)^(1/p);
%t A186154 b[n_]:=n+Floor[k[n]]; (* rank of v*n^q *)
%t A186154 Table[a[n],{n,1,100}]  (* A186154 *)
%t A186154 Table[b[n],{n,1,100}]  (* A186155 *)
%Y A186154 Cf. A186145, A186155.
%K A186154 nonn
%O A186154 1,2
%A A186154 _Clark Kimberling_, Feb 13 2011