A018043 Powers of cube root of 23 rounded to nearest integer.
1, 3, 8, 23, 65, 186, 529, 1504, 4278, 12167, 34601, 98402, 279841, 795831, 2263236, 6436343, 18304103, 52054435, 148035889, 420994377, 1197252006, 3404825447, 9682870661, 27536796143, 78310985281, 222706025200, 633346311281, 1801152661463, 5122238579606
Offset: 0
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..200
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), this sequence (k=23), A018046 (k=24).
Programs
-
Magma
[Round(23^(n/3)): n in [0..40]]; // Vincenzo Librandi, Jan 09 2014
-
Mathematica
Round[(Power[23, 1/3])^Range[0,40]] (* Harvey P. Dale, Jan 13 2011 *) Table[Round[23^(n/3)], {n, 0, 40}] (* Vincenzo Librandi, Jan 09 2014 *)
-
PARI
vector(40, n, n--; round(23^(n/3)) ) \\ G. C. Greubel, May 19 2019
-
Sage
[round(23^(n/3)) for n in (0..40)] # G. C. Greubel, May 19 2019
Extensions
More terms from Vincenzo Librandi, Jan 09 2014