login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A189397 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=1/sqrt(2), t=sqrt(3). 3

%I

%S 1,3,5,7,9,11,13,15,17,19,21,22,25,27,29,31,32,35,36,39,41,42,45,46,

%T 49,51,53,55,56,59,60,63,65,66,69,70,73,74,76,79,80,83,84,86,88,90,93,

%U 94,97,98,100,103,104,107,108,110,112,114,117,118,120,122,124,126,128,130,132,134,136,138,139,142,144,146,148,150,152,154,156,158,160,162,163,166

%N a(n) = n + [n*r/t] + [n*s/t]; r=1, s=1/sqrt(2), t=sqrt(3).

%C See A189395.

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

%t r=1; s=2^(-1/2); t=3^(1/2);

%t a[n_] := n + Floor[n*s/r] + Floor[n*t/r];

%t b[n_] := n + Floor[n*r/s] + Floor[n*t/s];

%t c[n_] := n + Floor[n*r/t] + Floor[n*s/t]

%t Table[a[n], {n, 1, 120}] (*A189395*)

%t Table[b[n], {n, 1, 120}] (*A189396*)

%t Table[c[n], {n, 1, 120}] (*A189397*)

%Y Cf. A189395, A189396.

%K nonn

%O 1,2

%A _Clark Kimberling_, Apr 21 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 September 16 11:12 EDT 2019. Contains 327095 sequences. (Running on oeis4.)