OFFSET
1,3
COMMENTS
Conjecture: there exists some m and N for which a(n) = m + n for all n >= N. - Charles R Greathouse IV, Jun 28 2011
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..500
EXAMPLE
109573^3 = 1315559990715517. Since both numbers use the digits 0, 1, 3, 5, 7, 9, and no others, 109573 is in the sequence.
MAPLE
seq(`if`(convert(convert(n, base, 10), set) = convert(convert(n^3, base, 10), set), n, NULL), n=0..500000); # Nathaniel Johnston, Jun 28 2011
MATHEMATICA
Select[Range[0, 199999], Union[IntegerDigits[#]] == Union[IntegerDigits[#^3]] &] (* Alonso del Arte, Jan 12 2020 *)
PROG
(Magma) [ n: n in [0..8*10^6] | Set(Intseq(n)) eq Set(Intseq(n^3)) ]; // Bruno Berselli, Jun 28 2011
(PARI) isA029795(n)=Set(Vec(Str(n)))==Set(Vec(Str(n^3))) \\ Charles R Greathouse IV, Jun 28 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved