A373191 Integers whose fifth power contains exactly the same digits as another fifth power.

348, 381, 747, 765, 1001, 1002, 1010, 1020, 1595, 2001, 2010, 2189, 2604, 2646, 2853, 3327, 3480, 3493, 3711, 3810, 3879, 3979, 4173, 4263, 4305, 4497, 4666, 4974, 5016, 5175, 5305, 5433, 5562, 5757, 6371, 6972, 7098, 7188, 7335, 7470, 7650, 7753, 7775, 7961

Offset

1,1

Links

Table of n, a(n) for n=1..44.

Example

348 and 381 are in the list because their fifth powers 5103830227968 and 8028323765901 have the same digits.

Mathematica

Sort[Flatten[Select[Gather[Table[{n, n^5, Sort[IntegerDigits[n^5]]}, {n, 1, 5000}], Last[#1] == Last[#2] &], Length[#] > 1 &], 1][[All, 1]]]

Prog

(Python) # uses imports, functions at A188065
print(list(islice(A188065_gen(root=5), 50))) # Michael S. Branicky, May 27 2024

Crossrefs

Cf. A045879, A188065, A373190, A373192.

Sequence in context: A264384 A323999 A293512 * A275237 A129642 A304837

Adjacent sequences: A373188 A373189 A373190 * A373192 A373193 A373194

Keyword

nonn,base,less

Author

Erich Friedman, May 27 2024

Status

approved