login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A120750 (u(1), v(1), u(2), v(2), u(3), v(3),...), where u = A120243 and v = A120749. 4

%I

%S 1,2,3,4,5,7,6,9,8,11,10,12,13,14,15,16,17,19,18,21,20,23,22,24,25,26,

%T 27,28,29,31,30,33,32,36,34,38,35,40,37,41,39,43,42,45,44,48,46,50,47,

%U 52,49,53,51,55,54,57,56,60,58,62,59,64,61,65,63,67,66,69,68,70,71,72

%N (u(1), v(1), u(2), v(2), u(3), v(3),...), where u = A120243 and v = A120749.

%C A permutation of the positive integers.

%H Clark Kimberling, <a href="/A120750/b120750.txt">Table of n, a(n) for n = 1..2000</a>

%t z = 400; r = Sqrt[2]; f[n_] := f[n] = If[FractionalPart[n*r] < 1/2, 0, 1]

%t u = Flatten[Position[Table[f[n], {n, 1, z}], 0]] (* A120243 *)

%t v = Flatten[Position[Table[f[n], {n, 1, z}], 1]] (* A120749 *)

%t Riffle[Take[u, z/4], Take[v, z/4]] (* A120750 *)

%Y Cf. A120243, A120749, A120751.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jul 01 2006

%E Updated by _Clark Kimberling_, Sep 16 2014

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 May 16 18:13 EDT 2021. Contains 343949 sequences. (Running on oeis4.)