|
%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
|
