A185603 a(n) = floor(floor(n^(5/2))^(1/2)); complement of A185604.

1, 2, 3, 5, 7, 9, 11, 13, 15, 17, 20, 22, 24, 27, 29, 32, 34, 37, 39, 42, 44, 47, 50, 53, 55, 58, 61, 64, 67, 70, 73, 76, 79, 82, 85, 88, 91, 94, 97, 100, 103, 106, 110, 113, 116, 119, 123, 126, 129, 132, 136, 139, 143, 146, 149, 153, 156, 160, 163, 166, 170, 173

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

Table[Floor[Floor[n^(5/2)]^(1/2)], {n, 1, 120}]

Prog

(PARI) for(n=1, 50, print1(floor(floor(n^(5/2))^(1/2)), ", ")) \\ G. C. Greubel, Jul 09 2017
(PARI) a(n) = sqrtint(sqrtnint(n^5, 2)); \\ Michel Marcus, Jul 10 2017

Crossrefs

Cf. A185604.

Sequence in context: A342008 A095737 A054022 * A046654 A280724 A023543

Adjacent sequences: A185600 A185601 A185602 * A185604 A185605 A185606

Keyword

nonn,easy

Author

Clark Kimberling, Jan 31 2011

Status

approved