cp's OEIS Frontend

A192519 Monotonic ordering of set S generated by these rules: if x and y are in S then floor(x*y/2) is in S, and 3 is in S.

%I A192519 #5 Mar 30 2012 18:57:34
%S A192519 3,4,6,8,9,12,13,16,18,19,24,26,27,28,32,36,38,39,40,42,48,52,54,56,
%T A192519 57,58,60,63,64,72,76,78,80,81,84,85,87,90,94,96,104,108,112,114,116,
%U A192519 117,120,121,123,126,127,128,130,135,141,144,152,156,160,162,168,169
%N A192519 Monotonic ordering of set S generated by these rules:  if x and y are in S then floor(x*y/2) is in S, and 3 is in S.
%t A192519 start = {3}; f[x_, y_] := Floor[x*y/2]
%t A192519 b[x_] :=
%t A192519   Block[{w = x},
%t A192519    Select[Union[
%t A192519      Flatten[AppendTo[w,
%t A192519        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192519       400 &]];
%t A192519 t = NestList[b, start, 12][[-1]] (* A192519 *)
%t A192519 Table[t[[i]] - t[[i - 1]], {i, 2, Length[t]}]
%Y A192519 Cf. A192476.
%K A192519 nonn
%O A192519 1,1
%A A192519 _Clark Kimberling_, Jul 03 2011