This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A297829 Duplicates in A297826. 2
 51, 59, 243, 279, 287, 295, 363, 371, 422, 430, 538, 587, 684, 872, 934, 1075, 1083, 1091, 1232, 1268, 1304, 1312, 1320, 1388, 1396, 1515, 1598, 1634, 1642, 1650, 1718, 1726, 1855, 1891, 1899, 1907, 1975, 1983, 2034, 2042, 2093, 2101, 2209, 2258, 2355, 2363 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]); tbl = {};  a[0] = 1; a[1] = 2; b[0] = 3; b[1] = 4; a[n_] := a[n] = a[1]*b[n - 1] - a[0]*b[n - 2] + n; b[n_] := b[n] = mex[tbl = Join[{a[n], a[n - 1], b[n - 1]}, tbl], b[n - 1]]; du = Differences[Table[a[n], {n, 0, 1000}]]  (* A297827 *) w = Flatten[Position[du, 0]]; Map[a, w] (* A297829 *) CROSSREFS Cf. A297826. Sequence in context: A039387 A043210 A043990 * A045068 A050701 A206525 Adjacent sequences:  A297826 A297827 A297828 * A297830 A297831 A297832 KEYWORD nonn,easy AUTHOR Clark Kimberling, Feb 04 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 19 13:08 EDT 2019. Contains 321330 sequences. (Running on oeis4.)