A018012 Powers of cube root of 13 rounded down.

1, 2, 5, 13, 30, 71, 169, 397, 934, 2197, 5165, 12146, 28561, 67156, 157907, 371293, 873034, 2052795, 4826809, 11349443, 26686340, 62748517, 147542764, 346922420, 815730721, 1918055940, 4509991465, 10604499373, 24934727221, 58629889045, 137858491849

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

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

Crossrefs

Cf. powers of cube root of k rounded down: A017979 (k=2), A017982 (k=3), A017985 (k=4), A017988 (k=5), A017991 (k=6), A017994 (k=7), A018000 (k=9), A018003 (k=10), A018006 (k=11), A018009 (k=12), this sequence (k=13), A018015 (k=14), A018018 (k=15), A018021 (k=16), A018024 (k=17), A018027 (k=18), A018030 (k=19), A018033 (k=20), A018036 (k=21), A018039 (k=22), A018042 (k=23), A018045 (k=24).

Programs

Magma

[Floor(13^(n/3)): n in [0..40]]; // Vincenzo Librandi, Jan 06 2014

Mathematica

Floor[(Power[13, (3)^-1])^Range[0, 40]]  (* Harvey P. Dale, Mar 18 2011 *)
Table[Floor[13^(n/3)], {n, 0, 40}] (* Vincenzo Librandi, Jan 06 2014 *)
Floor[CubeRoot[13]^Range[0,40]] (* Harvey P. Dale, Jun 01 2024 *)

Extensions

More terms from Vincenzo Librandi, Jan 06 2014