login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325600 Positions of 1 in A325599. 5

%I

%S 1,2,3,5,7,9,10,11,13,14,16,17,18,20,21,23,24,25,27,28,30,32,34,35,36,

%T 38,39,41,43,44,45,47,48,50,52,54,55,56,58,59,61,63,64,65,67,68,70,72,

%U 74,75,76,78,79,81,83,84,85,87,88,90,91,92,94,95,97,98

%N Positions of 1 in A325599.

%C All the terms of A325599 are in {1,2}, so that A325600 and A325601 are a complementary pair.

%H Clark Kimberling, <a href="/A325600/b325600.txt">Table of n, a(n) for n = 1..10000</a>

%t mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]); a = {1}; Do[AppendTo[a, mex[Rest[2 a] + Most[a], Last[a] + 1]], {60}]; a (* A325597 *)

%t c = Complement[Range[Last[a]], a] (* A325598 *)

%t da = Differences[a] (* A325599 *)

%t Flatten[Position[da, 1]] (* A325600 *)

%t Flatten[Position[da, 2]] (* A325601) *)

%t (* _Peter J. C. Moses_, May 07 2019 *)

%Y Cf. A325597, A325599, A325601.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, May 11 2019

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 22 11:02 EDT 2022. Contains 353949 sequences. (Running on oeis4.)