OFFSET
1,2
COMMENTS
All of entries shown are perfect powers.
MATHEMATICA
a = Table[0, {15}]; Do[ b = Length[ Union[ Table[ Floor[n^(1/k)], {k, 2, 20}]]]; If[ a[[b]] == 0, a[[b]] = n], {n, 1, 10^6}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 14 2002
STATUS
approved