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!)
A190563 Positions of 1 in A190561. 6

%I #7 Jul 04 2017 21:19:13

%S 1,3,8,13,15,20,25,30,32,37,42,44,49,54,56,59,61,66,71,73,78,83,85,90,

%T 95,100,102,107,112,114,119,124,126,129,131,136,141,143,148,153,155,

%U 160,165,170,172,177,182,184,189,194,199,201,206,211,213,218,223,225,230,235,240,242,247,252,254,259,264,269,271,276,281,283,288

%N Positions of 1 in A190561.

%C See A190561.

%H G. C. Greubel, <a href="/A190563/b190563.txt">Table of n, a(n) for n = 1..1000</a>

%t r = Sqrt[2]; b = 4; c = 3;

%t f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];

%t t = Table[f[n], {n, 1, 200}] (* A190561 *)

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

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

%t Flatten[Position[t, 2]] (* A190564 *)

%t Flatten[Position[t, 3]] (* A190565 *)

%t Flatten[Position[t, 4]] (* A190566 *)

%Y Cf. A190561.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 12 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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 12 07:24 EDT 2024. Contains 374237 sequences. (Running on oeis4.)