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!)
A190330 a(n) = n + [n*r/s] + [n*t/s]; r=1, s=sqrt(2), t=1/s. 3

%I #17 Sep 08 2022 08:45:57

%S 1,4,6,8,10,13,14,17,19,22,23,26,28,30,32,35,37,39,41,44,45,48,50,52,

%T 54,57,59,61,63,66,67,70,72,75,76,79,81,83,85,88,89,92,94,97,98,101,

%U 103,105,107,110,112,114,116,119,120,123,125,128,129,132,134,136,138,141,142,145,147,150,151,154,156,158,160,163,165,167

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

%C See A190329.

%H G. C. Greubel, <a href="/A190330/b190330.txt">Table of n, a(n) for n = 1..10000</a>

%p r:=1: s:=sqrt(2): t:=1/s: seq(n+floor(n*r/s)+floor(n*t/s), n=1..10^4); # _Muniru A Asiru_, Jan 31 2018

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

%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}] (*A190329*)

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

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

%t Table[n + Floor[n/Sqrt[2]] + Floor[n/2], {n,1,50}] (* _G. C. Greubel_, Jan 30 2018 *)

%o (PARI) for(n=1,50, print1(n + floor(n/sqrt(2)) + floor(n/2), ", ")) \\ _G. C. Greubel_, Jan 30 2018

%o (Magma) [n + Floor(n/Sqrt(2)) + Floor(n/2): n in [1..50]]; // _G. C. Greubel_, Jan 30 2018

%Y Cf. A190329, A187338.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 08 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 March 28 14:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)