A186156 - OEIS

%I #4 Mar 30 2012 18:57:18

%S 1,3,6,9,12,16,20,23,28,32,36,41,46,51,56,61,66,71,77,83,89,94,100,

%T 107,113,119,126,132,139,146,153,159,167,174,181,188,196,203,211,218,

%U 226,234,242,250,258,266,274,283,291,299,308,317,325,334,343,352,361,370,379,388,397,407,416,426,435,445,454,464,474,484,494,503,514,524,534,544,554,565,575,585,596,607,617,628,639,649,660,671,682

%N Rank of n^3 when {i^3: i>=1} and {2j^2: j>=1} are jointly ranked with i^3 before 2j^2 when i^3=2j^2.  Complement of A186157.

%C See A186145 for a discussion of adjusted joint rank sequences.

%F a(n)=n+floor(((n^3-1/2)/2)^(1/2)), A186156.

%F b(n)=n+floor((2n^2+1/2)^(1/3)), A186157.

%e Write separate rankings as

%e 1....8.....27........64........125...

%e ..2..8..18....32..50....72..98.....128...

%e Then replace each number by its rank, where ties are settled by ranking i^3 before 2j^2.

%t d=1/2; u=1; v=2; p=3; q=2;

%t h[n_]:=((u*n^p-d)/v)^(1/q);

%t a[n_]:=n+Floor[h[n]]; (* rank of u*n^p *)

%t k[n_]:=((v*n^q+d)/u)^(1/p);

%t b[n_]:=n+Floor[k[n]]; (* rank of v*n^q *)

%t Table[a[n],{n,1,100}] (* A186156 *)

%t Table[b[n],{n,1,100}] (* A186157 *)

%Y Cf. A186145, A186157, A186158, A186159.

%K nonn

%O 1,2

%A _Clark Kimberling_, Feb 13 2011