%I #4 Oct 06 2014 23:00:37
%S 1,2,5,8,12,15,18,22,25,29,32,35,39,42,46,49,52,56,59,63,66,70,73,76,
%T 80,83,87,90,93,97,100,104,107,110,114,117,121,124,128,131,134,138,
%U 141,145,148,151,155,158,162,165,169,172,175,179,182,186,189,192
%N Numbers k such that A248183(k+1) = A248183(k).
%C The difference sequence of A248183 is (0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1,...), so that A248184 = (1, 2, 5, 8, 12, 15, 18, 22,...) and A248185 = (3, 4, 6, 7, 9, 10, 11, 13, 14, 16, 17,...), the complement of A248185.
%H Clark Kimberling, <a href="/A248184/b248184.txt">Table of n, a(n) for n = 1..500</a>
%t z = 200; p[k_] := p[k] = Sum[1/(h*(h + 1)*(h + 2)), {h, 1, k}] ;
%t N[Table[1/4 - p[n], {n, 1, z/10}]]
%t f[n_] := f[n] = Select[Range[z], 1/4 - p[#] < 1/n^2 &, 1];
%t u = Flatten[Table[f[n], {n, 1, z}]] (* A248183 *)
%t Flatten[Position[Differences[u], 0]] (* A248184 *)
%t Flatten[Position[Differences[u], 1]] (* A248185 *)
%Y Cf. A248183, A248185.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Oct 04 2014