cp's OEIS Frontend

A186330 Adjusted joint rank sequence of (f(i)) and (g(j)) with f(i) after g(j) when f(i)=g(j), where f and g are the pentagonal numbers and the hexagonal numbers. Complement of A186331.

%I A186330 #6 Mar 30 2012 18:57:18
%S A186330 2,3,5,7,9,11,13,15,16,18,20,22,24,26,28,29,31,33,35,37,39,41,43,44,
%T A186330 46,48,50,52,54,56,57,59,61,63,65,67,69,71,72,74,76,78,80,82,84,85,87,
%U A186330 89,91,93,95,97,99,100,102,104,106,108,110,112,113,115,117,119,121,123,125,126,128,130,132,134,136,138,140,141,143,145,147,149,151,153,154,156,158,160,162,164,166,168,169,171,173,175,177,179,181,182,184,186
%N A186330 Adjusted joint rank sequence of (f(i)) and (g(j)) with f(i) after g(j) when f(i)=g(j), where f and g are the pentagonal numbers and the hexagonal numbers.  Complement of A186331.
%C A186330 Does this differ (apart from a(1)) from A186329 or A186328? - R. J. Mathar, Feb 25 2011
%e A186330 First, write
%e A186330 1..5...12....22.....35......  (pentagonal)
%e A186330 1....6....15....28.......45.. (hexagonal)
%e A186330 Replace each number by its rank, where ties are settled by ranking the pentagonl number after the hexagonal:
%e A186330 a=(1,3,5,7,9,11,13,15,16,....)=A186330
%e A186330 b=(2,4,6,8,10,12,14,17,19,...)=A186331.
%t A186330 (* adjusted joint ranking; general formula *)
%t A186330 d=-1/2; u=3/2; v=-1/2; w=0; x=2; y=-1; z=0;
%t A186330 h[n_]:=-y+(4x(u*n^2+v*n+w-z-d)+y^2)^(1/2);
%t A186330 a[n_]:=n+Floor[h[n]/(2x)];
%t A186330 k[n_]:=-v+(4u(x*n^2+y*n+z-w+d)+v^2)^(1/2);
%t A186330 b[n_]:=n+Floor[k[n]/(2u)];
%t A186330 Table[a[n], {n, 1, 100}]  (* A186330 *)
%t A186330 Table[b[n], {n, 1, 100}]  (* A186331 *)
%Y A186330 Cf. A186328, A186329, A186331.
%K A186330 nonn
%O A186330 1,1
%A A186330 _Clark Kimberling_, Feb 17 2011