This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A326663 Column 3 of the array at A309157; see Comments. 2
 5, 12, 20, 26, 33, 41, 47, 54, 61, 68, 75, 83, 89, 96, 104, 110, 117, 124, 131, 138, 146, 152, 159, 167, 173, 180, 188, 194, 201, 209, 215, 222, 230, 236, 243, 250, 257, 264, 272, 278, 285, 293, 299, 306, 313, 320, 327, 335, 341, 348, 356, 362, 369, 377, 383 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS This is the sequence (c(n)) defined by the complementary equation c(n) = a(n) + b(2n), with initial value a(1) = 1.  See A309157.  Conjecture: 7n-c(n) is in {1,2} for all n. LINKS Clark Kimberling, Table of n, a(n) for n = 1..10000 MATHEMATICA mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]); a = b = c = {}; h = 1; k = 2; Do[Do[AppendTo[a,   mex[Flatten[{a, b, c}], Max[Last[a /. {} -> {0}], 1]]];   AppendTo[b, mex[Flatten[{a, b, c}], Max[Last[b /. {} -> {0}], 1]]], {k}];   AppendTo[c, a[[h Length[a]/k]] + Last[b]], {150}]; c (* Peter J. C. Moses, July 04 2019 *) CROSSREFS Cf. A309157. Sequence in context: A139692 A099192 A047077 * A086570 A270333 A270938 Adjacent sequences:  A326660 A326661 A326662 * A326664 A326665 A326666 KEYWORD nonn,tabl,easy AUTHOR Clark Kimberling, Jul 16 2019 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 October 21 11:42 EDT 2019. Contains 328296 sequences. (Running on oeis4.)