# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a194151 Showing 1-1 of 1 %I A194151 #5 Mar 30 2012 18:57:40 %S A194151 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,19,20,21,22,23,24,25,26,27, %T A194151 29,30,31,32,33,34,35,36,38,39,40,41,42,43,44,45,46,48,49,50,51,52,53, %U A194151 54,55,57,58,59,60,61,62,63,64,65,67,68,69,70,71,72,73,74,76,77 %N A194151 Beatty sequence for (1/2)*sqrt(5); complement of A194152. %t A194151 r=Sqrt[5]/2; %t A194151 c[k_]:=Floor[k*r]; %t A194151 Table[c[k],{k,1,90}] (* A194151 *) %t A194151 s=5+2*Sqrt[5]; %t A194151 d[k_]:=Floor[k*s]; %t A194151 Table[d[k],{k,1,90}] (* A194152 *) %Y A194151 Cf. A194152. %K A194151 nonn %O A194151 1,2 %A A194151 _Clark Kimberling_, Aug 17 2011 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE