A033320 a(n) = floor( sqrt(2) * (3/2)^n ).

1, 2, 3, 4, 7, 10, 16, 24, 36, 54, 81, 122, 183, 275, 412, 619, 928, 1393, 2090, 3135, 4702, 7053, 10580, 15871, 23807, 35710, 53565, 80348, 120523, 180784, 271176, 406765, 610148, 915222, 1372833, 2059249, 3088874, 4633312, 6949968, 10424952, 15637429

Offset

0,2

Comments

Suggested by the Mahler paper.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

K. Mahler, An unsolved problem on the powers of 3/2, J. Austral. Math. Soc. 8 (1968), pp. 313-321.

Mathematica

Table[Floor[Sqrt[2]*(3/2)^n], {n, 0, 50}] (* G. C. Greubel, Sep 30 2018 *)

Prog

(PARI) vector(50, n, n--; floor(sqrt(2)*(3/2)^n)) \\ G. C. Greubel, Sep 30 2018
(Magma) [Floor(Sqrt(2)*(3/2)^n) : n in [0..50]]; // G. C. Greubel, Sep 30 2018

Crossrefs

Sequence in context: A270659 A159288 A363958 * A013982 A202411 A293161

Adjacent sequences: A033317 A033318 A033319 * A033321 A033322 A033323

Keyword

nonn

Author

N. J. A. Sloane, Apr 18 2003

Status

approved