|
| |
|
|
A069624
|
|
Number of different values taken by the integer part of n^(1/k) for all k >= 1.
|
|
1
| |
|
|
1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
EXAMPLE
| a(28) = 4, floor[28^(1/2)] = 5, floor[28^1/3] = 3, floor[28^1/4] = 2, floor [28^1/5] = 1= floor[28^1/k, (k > 5)], etc. The distinct values are 1,2,3 and 5.
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 1}, While[ Floor[n^(1/k)] != 1, k++ ]; k]; Table[ Length[ Union[ Table[ Floor[n^(1/k)], {k, 2, f[n]+1}]]], {n, 1, 105}]
|
|
|
CROSSREFS
| Cf. A071913.
Sequence in context: A053384 A186313 A165020 * A092139 A084558 A163291
Adjacent sequences: A069621 A069622 A069623 * A069625 A069626 A069627
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 27 2002
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2002
|
| |
|
|
