A018060 Powers of fourth root of 6 rounded down.

1, 1, 2, 3, 6, 9, 14, 23, 36, 56, 88, 138, 216, 338, 529, 828, 1296, 2028, 3174, 4968, 7776, 12170, 19047, 29810, 46656, 73020, 114283, 178863, 279936, 438123, 685700, 1073179, 1679616, 2628741, 4114202, 6439074, 10077696, 15772446, 24685212, 38634446

Offset

0,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 0..5140

Formula

a(n) = floor(6^(n/4)). - Wesley Ivan Hurt, Aug 28 2015

Maple

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

Mathematica

Table[Floor[6^(n/4)], {n, 0, 40}] (* Wesley Ivan Hurt, Aug 28 2015 *)

Prog

(Magma) [Floor(6^(n/4)) : n in [0..40]]; // Wesley Ivan Hurt, Aug 28 2015
(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

Crossrefs

Sequence in context: A134004 A123631 A228364 * A115856 A147007 A146937

Adjacent sequences: A018057 A018058 A018059 * A018061 A018062 A018063

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved