A329391 a(n) = (1/2)*A329390(n).

5, 7, 9, 11, 13, 15, 17, 19, 24, 25, 27, 32, 33, 35, 40, 41, 43, 48, 49, 51, 56, 57, 59, 64, 65, 67, 72, 73, 75, 80, 81, 83, 85, 87, 89, 91, 93, 95, 100, 104, 105, 107, 112, 113, 115, 117, 119, 121, 123, 125, 127, 132, 136, 137, 139, 144, 145, 147, 149, 151

Offset

0,1

Links

Table of n, a(n) for n=0..59.

Mathematica

mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]);
b = {1}; a = {}; h = 6; k=2;
Do[AppendTo[b, mex[Flatten[{a, b}], b[[-1]]]];
AppendTo[a, h b[[-1]] - k b[[-2]]], {250}]; a/2
(* Peter J. C. Moses, Sep 07 2019 *)

Crossrefs

Cf. A329387, A329388, A329390.

Sequence in context: A267872 A062545 A020735 * A108144 A241835 A279914

Adjacent sequences: A329388 A329389 A329390 * A329392 A329393 A329394

Keyword

nonn

Author

Clark Kimberling, Nov 23 2019

Status

approved