A232659 Numbers n such that n and n^4 have the same set of digits.
0, 1, 10, 100, 1000, 10000, 35641, 100000, 129486, 146980, 356410, 465780, 1000000, 1059281, 1083749, 1206794, 1239876, 1245890, 1265360, 1294860, 1297853, 1348970, 1469800, 1486920, 1495860, 1567038, 1572086, 1574689, 1956740, 2035817, 2084615, 2114760
Offset: 1
Examples
{1, 3, 4, 5, 6} - the set of digits of 35641 and of 35641^4, so 35641 is in the sequence.
Links
- Lars Blomberg, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n : n in [0..2114760] | Set(Intseq(n)) eq Set(Intseq(n^4))];
-
Mathematica
Select[Range[0,22*10^5],Union[IntegerDigits[#]]== Union[ IntegerDigits[ #^4]]&] (* Harvey P. Dale, Aug 02 2016 *)
-
PARI
for(n=0, 2114760, if(Set(Vec(Str(n)))==Set(Vec(Str(n^4))), print1(n, ", ")));