cp's OEIS Frontend

A192647 Monotonic ordering of set S generated by these rules: if x and y are in S and x^2 - y^2 > 0 then x^2 - y^2 is in S, and 1 and 3 are in S.

%I A192647 #15 Sep 21 2018 21:51:20
%S A192647 1,3,8,55,63,944,2961,3016,3024,3905,3960,3968,48320,63424,328735,
%T A192647 377055,432575,495999,887167,888111,891072,891127,891135,6104449,
%U A192647 6152769,6481504,6537024,6585344,6600448,6648768,6914079,6977503,7876385,8205120
%N A192647 Monotonic ordering of set S generated by these rules:  if x and y are in S and x^2 - y^2 > 0 then x^2 - y^2 is in S, and 1 and 3 are in S.
%C A192647 See A192645.
%H A192647 Ivan Neretin, <a href="/A192647/b192647.txt">Table of n, a(n) for n = 1..10000</a>
%t A192647 start = {1, 3};
%t A192647 f[x_, y_] := If[MemberQ[Range[1, 500000], x^2 - y^2], x^2 - y^2]
%t A192647 b[x_] :=
%t A192647   Block[{w = x},
%t A192647    Select[Union[
%t A192647      Flatten[AppendTo[w,
%t A192647        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192647       500000 &]];
%t A192647 t = FixedPoint[b, start]  (* A192647 *)
%Y A192647 Cf. A192476, A192646.
%K A192647 nonn
%O A192647 1,2
%A A192647 _Clark Kimberling_, Jul 06 2011