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