%I #14 Sep 08 2022 08:44:51
%S 1,2,3,4,7,10,16,24,36,54,81,122,183,275,412,619,928,1393,2090,3135,
%T 4702,7053,10580,15871,23807,35710,53565,80348,120523,180784,271176,
%U 406765,610148,915222,1372833,2059249,3088874,4633312,6949968,10424952,15637429
%N a(n) = floor( sqrt(2) * (3/2)^n ).
%C Suggested by the Mahler paper.
%H G. C. Greubel, <a href="/A033320/b033320.txt">Table of n, a(n) for n = 0..1000</a>
%H K. Mahler, <a href="https://doi.org/10.1017/S1446788700005371">An unsolved problem on the powers of 3/2</a>, J. Austral. Math. Soc. 8 (1968), pp. 313-321.
%t Table[Floor[Sqrt[2]*(3/2)^n], {n,0,50}] (* _G. C. Greubel_, Sep 30 2018 *)
%o (PARI) vector(50, n, n--; floor(sqrt(2)*(3/2)^n)) \\ _G. C. Greubel_, Sep 30 2018
%o (Magma) [Floor(Sqrt(2)*(3/2)^n) : n in [0..50]]; // _G. C. Greubel_, Sep 30 2018
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Apr 18 2003
|