This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A232659 #12 Sep 08 2022 08:46:06 %S A232659 0,1,10,100,1000,10000,35641,100000,129486,146980,356410,465780, %T A232659 1000000,1059281,1083749,1206794,1239876,1245890,1265360,1294860, %U A232659 1297853,1348970,1469800,1486920,1495860,1567038,1572086,1574689,1956740,2035817,2084615,2114760 %N A232659 Numbers n such that n and n^4 have the same set of digits. %H A232659 Lars Blomberg, <a href="/A232659/b232659.txt">Table of n, a(n) for n = 1..10000</a> %e A232659 {1, 3, 4, 5, 6} - the set of digits of 35641 and of 35641^4, so 35641 is in the sequence. %t A232659 Select[Range[0,22*10^5],Union[IntegerDigits[#]]== Union[ IntegerDigits[ #^4]]&] (* _Harvey P. Dale_, Aug 02 2016 *) %o A232659 (Magma) [n : n in [0..2114760] | Set(Intseq(n)) eq Set(Intseq(n^4))]; %o A232659 (PARI) for(n=0, 2114760, if(Set(Vec(Str(n)))==Set(Vec(Str(n^4))), print1(n, ", "))); %Y A232659 Cf. A029793, A029795, A232660-A232662. %K A232659 nonn,base %O A232659 1,3 %A A232659 _Arkadiusz Wesolowski_, Nov 27 2013