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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 11:42 EDT 2019. Contains 328296 sequences. (Running on oeis4.)