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!)
A190246 Positions of 0 in A190245; complement of A190247. 3

%I

%S 3,4,5,8,10,11,15,16,17,20,22,23,27,28,29,32,34,37,39,40,44,45,46,49,

%T 51,52,56,57,58,61,63,64,68,69,73,74,75,78,80,81,85,86,87,90,92,93,97,

%U 98,99,102,103,104,107,109,110,114,115,116,119,121,122,126,127,128,131,133,134,136,138,139,143,144,145,148,150,151,155,156

%N Positions of 0 in A190245; complement of A190247.

%C n such that floor(3*sqrt(2)*n) = floor(sqrt(2)*n) + floor(2*sqrt(2)*n). - _Robert Israel_, Jan 08 2017

%H Robert Israel, <a href="/A190246/b190246.txt">Table of n, a(n) for n = 1..10000</a>

%p g:= proc(n) floor(3*sqrt(2)*n) - floor(sqrt(2)*n)-floor(2*sqrt(2)*n) end proc:

%p select(g=0, [$1..1000]); # _Robert Israel_, Jan 08 2017

%t u = 2^(1/2); v = 2u;

%t f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]

%t t = Table[f[n], {n, 1, 120}] (*A190245*)

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

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

%Y Cf. A190245, A190247.

%K nonn

%O 1,1

%A _Clark Kimberling_, May 06 2011

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 June 15 21:52 EDT 2021. Contains 345053 sequences. (Running on oeis4.)