|
Search: id:A069624
|
|
|
| A069624 |
|
Number of different values taken by the integer part of n^(1/k) for all k >= 1. |
|
+0
2
|
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A069621 A069622 A069623 this_sequence A069625 A069626 A069627
Sequence in context: A092363 A133874 A053384 this_sequence A092139 A084558 A066339
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 27 2002
|
|
EXTENSIONS
|
Edited by njas and Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2002
|
|
|
Search completed in 0.002 seconds
|
