The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A059540

Beatty sequence for 3^(1/3)/(3^(1/3)-1).
(history; published version)

#26 by Amiram Eldar at Wed Jul 17 04:19:40 EDT 2024

STATUS

reviewed

approved

#25 by Stefano Spezia at Wed Jul 17 03:27:54 EDT 2024

STATUS

proposed

reviewed

#24 by Paolo Xausa at Wed Jul 17 02:58:22 EDT 2024

STATUS

editing

proposed

#23 by Paolo Xausa at Wed Jul 17 02:57:23 EDT 2024

FORMULA

a(n) = floor(n*(1 + 1/(A002581 - 1) - A072365)). - Paolo Xausa, Jul 05 17 2024

MATHEMATICA

Floor[Range[100]*/(1 + 1/(CubeRoot[- 3] ^(- 1/3))] (* Paolo Xausa, Jul 05 17 2024 *)

CROSSREFS

Cf. A002581A072365.

STATUS

approved

editing

Discussion

Wed Jul 17

02:58

Paolo Xausa: Simpler formula and prog.

#22 by Alois P. Heinz at Fri Jul 05 08:21:13 EDT 2024

STATUS

proposed

approved

#21 by Paolo Xausa at Fri Jul 05 07:49:31 EDT 2024

STATUS

editing

proposed

#20 by Paolo Xausa at Fri Jul 05 07:49:22 EDT 2024

MATHEMATICA

Floor[Range[100]*(1 + 1/(CubeRoot[3] - 1))] (* Paolo Xausa, Jul 05 2024 *)

#19 by Paolo Xausa at Fri Jul 05 07:49:01 EDT 2024

FORMULA

a(n) = floor(n*(1 + 1/(3^(1/3) A002581 - 1))). - Paolo Xausa, Jul 05 2024

CROSSREFS

Cf. A002581.

#18 by Paolo Xausa at Fri Jul 05 07:46:39 EDT 2024

FORMULA

a(n) = floor(n*(1 + 1/(3^(1/3) - 1))). - Paolo Xausa, Jul 05 2024

MATHEMATICA

Floor[Range[100]*(1+1/(CubeRoot[3]-1))] (* Paolo Xausa, Jul 05 2024 *)

STATUS

approved

editing

#17 by Jon E. Schoenfield at Sun Jan 03 14:16:36 EST 2016

STATUS

editing

approved