OFFSET
1,3
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..10000
EXAMPLE
{1, 3, 4, 5, 6} - the set of digits of 35641 and of 35641^4, so 35641 is in the sequence.
MATHEMATICA
Select[Range[0, 22*10^5], Union[IntegerDigits[#]]== Union[ IntegerDigits[ #^4]]&] (* Harvey P. Dale, Aug 02 2016 *)
PROG
(Magma) [n : n in [0..2114760] | Set(Intseq(n)) eq Set(Intseq(n^4))];
(PARI) for(n=0, 2114760, if(Set(Vec(Str(n)))==Set(Vec(Str(n^4))), print1(n, ", ")));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Arkadiusz Wesolowski, Nov 27 2013
STATUS
approved