A018046 Powers of cube root of 24 rounded to nearest integer.

1, 3, 8, 24, 69, 200, 576, 1661, 4793, 13824, 39875, 115020, 331776, 957008, 2760488, 7962624, 22968182, 66251701, 191102976, 551236370, 1590040836, 4586471424, 13229672881, 38160980056, 110075314176, 317512149144, 915863521339, 2641807540224, 7620291579446

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..300

Mathematica

Floor[(Power[24, (3)^-1])^Range[0, 30]+1/2] (* Harvey P. Dale, Nov 13 2011 *)
Table[Round[24^(n/3)], {n, 0, 40}] (* Vincenzo Librandi, Jan 09 2014 *)

Prog

(Magma) [Round(24^(n/3)): n in [0..40]]; // Vincenzo Librandi, Jan 09 2014
(Python)
from sympy import integer_nthroot
def A018046(n): return -integer_nthroot(m:=3**n<<3*n, 3)[0]+integer_nthroot(m<<3, 3)[0] # Chai Wah Wu, Jun 18 2024

Crossrefs

Cf. powers of cube root of k rounded up: A017980 (k=2), A017983 (k=3), A017986 (k=4), A017989 (k=5), A017992 (k=6), A017995 (k=7), A018001 (k=9), A018004 (k=10), A018007 (k=11), A018010 (k=12), A018013 (k=13), A018016 (k=14), A018019 (k=15), A018022 (k=16), A018025 (k=17), A018028 (k=18), A018031 (k=19), A018034 (k=20), A018037 (k=21), A018040 (k=22), A018043 (k=23), this sequence (k=24).

Sequence in context: A056332 A091588 A297219 * A095125 A078055 A291613

Adjacent sequences: A018043 A018044 A018045 * A018047 A018048 A018049

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Vincenzo Librandi, Jan 09 2014

Status

approved