OFFSET
1,2
COMMENTS
MATHEMATICA
m=26000; a=1; A001597=Union[Join[{a}, Flatten[Table[n^i, {n, 2, Sqrt[m]}, {i, 2, Log[n, m]}]]]]; A090516=Select[A001597, Max[Length/@Split[IntegerDigits[ # ]]]==1&]; S={1}; ia1={a}; Do[si=A090516[[i]]; If[IntegerDigits[si][[1]]!=ia1, AppendTo[S, si]; ia1=IntegerDigits[si][[ -1]]], {i, 2, Length[se1]}]; S
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Nov 06 2009
STATUS
approved