The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A189458 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A189458

a(n) = n+[nr/s]+[nt/s]; r=2, s=sqrt(2), t=1+sqrt(2).
(history; published version)

#13 by Charles R Greathouse IV at Thu Sep 08 08:45:56 EDT 2022

PROG

(MAGMAMagma) [n+Floor((2*n)/Sqrt(2))+Floor((n*(1+Sqrt(2)))/Sqrt(2)): n in [1..120]]; // G. C. Greubel, Aug 19 2018

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#12 by Michael Somos at Mon Aug 20 00:28:19 EDT 2018

STATUS

proposed

approved

#11 by Michel Marcus at Sun Aug 19 03:08:19 EDT 2018

STATUS

editing

proposed

#10 by Michel Marcus at Sun Aug 19 03:08:01 EDT 2018

NAME

a(n) = n+[nr/s]+[nt/s]; r=2, s=sqrt(2), t=1+sqrt(2).

CROSSREFS

Cf. A189457, A186222.

STATUS

proposed

editing

Discussion

Sun Aug 19

03:08

Michel Marcus: why not just keep the relevant pat of Mmca ??

#9 by G. C. Greubel at Sun Aug 19 02:49:20 EDT 2018

STATUS

editing

proposed

#8 by G. C. Greubel at Sun Aug 19 02:49:03 EDT 2018

LINKS

G. C. Greubel, <a href="/A189458/b189458.txt">Table of n, a(n) for n = 1..10000</a>

MATHEMATICA

(See A189457.)

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

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

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

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

Table[a[n], {n, 1, 120}] (*A189457*)

Table[b[n], {n, 1, 120}] (*A189458*)

Table[c[n], {n, 1, 120}] (*A186222, conjectured*)

PROG

(PARI) vector(120, n, n+floor((2*n)/sqrt(2))+floor((n*(1+sqrt(2)))/sqrt(2))) \\ G. C. Greubel, Aug 19 2018

(MAGMA) [n+Floor((2*n)/Sqrt(2))+Floor((n*(1+Sqrt(2)))/Sqrt(2)): n in [1..120]]; // G. C. Greubel, Aug 19 2018

STATUS

approved

editing

#7 by Harvey P. Dale at Wed Feb 04 17:21:17 EST 2015

STATUS

editing

approved

#6 by Harvey P. Dale at Wed Feb 04 17:21:07 EST 2015

MATHEMATICA

Table[n+Floor[(2n)/Sqrt[2]]+Floor[(n(1+Sqrt[2]))/Sqrt[2]], {n, 90}] (* Harvey P. Dale, Feb 04 2015 *)

STATUS

approved

editing

#5 by Russ Cox at Fri Mar 30 18:57:24 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Apr 22 2011

Discussion

Fri Mar 30

18:57

OEIS Server: https://oeis.org/edit/global/285

#4 by T. D. Noe at Fri Apr 22 16:58:06 EDT 2011

STATUS

proposed

approved