This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
(See A192523.)
The first four polynomials p(n,x) and their reductions are as follows: p(1,x)=1+x+x^4 -> 3+4x p(2,x)=1+x^2+x^6 -> 7+9x p(3,x)=1+x^3+x^8 -> 15+23x p(4,x)=1+x^4+x^10 -> 37+58x. From these, read A192472=(3,7,15,37,...) and A192473=(4,9,23,58,...)
(See A192472.)
start = {2}; f[x_, y_] := 3 x*y - x - y
b[x_] :=
Block[{w = x},
Select[Union[
Flatten[AppendTo[w,
Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
1000000 &]];
t = NestList[b, start, 12][[-1]] (* A192529 *)
t/2 (* A192530 *)
Table[t[[i]] - t[[i - 1]], {i, 2, Length[t]}] (* differences *)
(See A192525.)
Comments