A018060 - OEIS

%I #11 Sep 08 2022 08:44:44

%S 1,1,2,3,6,9,14,23,36,56,88,138,216,338,529,828,1296,2028,3174,4968,

%T 7776,12170,19047,29810,46656,73020,114283,178863,279936,438123,

%U 685700,1073179,1679616,2628741,4114202,6439074,10077696,15772446,24685212,38634446

%N Powers of fourth root of 6 rounded down.

%H Charles R Greathouse IV, <a href="/A018060/b018060.txt">Table of n, a(n) for n = 0..5140</a>

%F a(n) = floor(6^(n/4)). - _Wesley Ivan Hurt_, Aug 28 2015

%p A018060:=n->floor(6^(n/4)): seq(A018060(n), n=0..40); # _Wesley Ivan Hurt_, Aug 28 2015

%t Table[Floor[6^(n/4)], {n, 0, 40}] (* _Wesley Ivan Hurt_, Aug 28 2015 *)

%o (Magma) [Floor(6^(n/4)) : n in [0..40]]; // _Wesley Ivan Hurt_, Aug 28 2015

%o (PARI) a(n)=if(n%2, sqrtnint(6^n,4), if(n%4, sqrtint(6^(n/2)), 6^(n/4))) \\ _Charles R Greathouse IV_, Aug 29 2015

%K nonn,easy

%O 0,3

%A _N. J. A. Sloane_