OFFSET
1,2
COMMENTS
Is this a finite sequence?
There are no other terms below 10^23. - Giovanni Resta, Aug 13 2015
EXAMPLE
From Michel Marcus, Aug 13 2015: (Start)
For k=1 to 9, we have the following floored roots:
k=1: 1, 1, ...
k=2: 2, 1, 1, ...
k=3: 3, 1, 1, ...
k=4: 4, 2, 1, 1, ...
k=5: 5, 2, 1, 1, ...
k=6: 6, 2, 1, 1, ...
k=7: 7, 2, 1, 1, ...
k=8: 8, 2, 2, 1, 1, ...
k=9: 9, 3, 2, 1, 1, ...
where one can see that 5, 7 and 9 are not terms. (End)
MATHEMATICA
fQ[n_] := Block[{d, k = 2, lst = {}}, While[d = Floor[n^(1/k)]; d > 1, AppendTo[lst, d]; k++]; Union[ IntegerQ@# & /@ (n/Union[lst])] == {True}]; k = 4; lst = {1, 2, 3}; While[k < 10^6, If[fQ@ k, AppendTo[lst, k]; Print@ k]; k++]; lst (* Robert G. Wilson v, Aug 15 2015 *)
PROG
(PARI) is(n) = my(k, t); k=2; while( (t=sqrtnint(n, k)) > 1, if(n%t, return(0)); k++); 1
n=1; while(n<10^5, if(is(n), print1(n, ", ")); n++) /* Able to generate terms < 10^5 */ \\ Derek Orr, Aug 12 2015
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Yan A. Denenberg and Max Alekseyev, Aug 11 2015
STATUS
approved