cp's OEIS Frontend

A192528 Monotonic ordering of set S generated by these rules: if x and y are in S then 5xy-x-y is in S, and 1 is in S.

%I A192528 #5 Mar 30 2012 18:57:34
%S A192528 1,3,11,39,43,151,155,171,543,583,599,603,619,683,2095,2111,2167,2171,
%T A192528 2311,2331,2391,2395,2411,2475,2731,7527,7599,8143,8159,8303,8359,
%U A192528 8379,8383,8439,8443,8663,8667,8683,9159,9223,9243,9323,9559,9563
%N A192528 Monotonic ordering of set S generated by these rules:  if x and y are in S then 5xy-x-y is in S, and 1 is in S.
%t A192528 start = {1}; f[x_, y_] := 5 x*y - x - y
%t A192528 b[x_] :=
%t A192528   Block[{w = x},
%t A192528    Select[Union[
%t A192528      Flatten[AppendTo[w,
%t A192528        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192528       100000 &]];
%t A192528 t = NestList[b, start, 12][[-1]] (* A192528 *)
%t A192528 Table[t[[i]] - t[[i - 1]], {i, 2, Length[t]}] (* differences *)
%Y A192528 Cf. A192476.
%K A192528 nonn
%O A192528 1,2
%A A192528 _Clark Kimberling_, Jul 03 2011