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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A189079 Positions of 0 in A189078; complement of A189080. 3

%I #14 Jun 04 2020 16:06:58

%S 1,2,10,13,14,17,18,19,20,23,24,25,26,27,28,30,32,33,35,36,37,38,39,

%T 40,42,45,46,49,50,51,52,53,54,55,56,59,63,65,69,70,71,72,73,74,75,76,

%U 77,79,83,89,91,97,98,99,100,101,103,104,105,106,107,108,111,116,117,125,128

%N Positions of 0 in A189078; complement of A189080.

%H G. C. Greubel, <a href="/A189079/b189079.txt">Table of n, a(n) for n = 1..5000</a>

%t r = 2^(1/2); u[n_] := Floor[r*n]; (*A001951*)

%t v[n_] := Floor[(2 + r) n]; (*A001952*)

%t a[1] = 0; a[2] = 0; h = 200;

%t c = Table[u[n], {n, 1, h}];

%t d = Table[v[n], {n, 1, h}];

%t Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}]; (*A189078*)

%t Table[a[c[[n]]] = a[n], {n, 1, h}] (*A189078*)

%t Flatten[Position[%, 0]] (*A189079*)

%t Flatten[Position[%%, 1]] (*A189080*)

%Y Cf. A189078.

%K nonn

%O 1,2

%A _Clark Kimberling_, Apr 16 2011

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.

Last modified October 3 16:48 EDT 2023. Contains 365868 sequences. (Running on oeis4.)