login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..46.

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.

License Agreements, Terms of Use, Privacy Policy. .

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