A373192 Integers whose sixth power contains exactly the same digits as another sixth power.

731, 764, 1001, 1002, 1010, 1020, 1261, 1349, 1726, 2105, 3196, 3356, 3365, 3522, 3674, 3994, 4004, 4146, 4193, 4576, 4672, 4854, 4969, 5188, 5554, 5585, 5936, 6067, 6366, 6568, 6769, 6785, 6854, 6904, 7002, 7267, 7310, 7454, 7457, 7631, 7640, 7698, 7865, 8024, 8281, 8561, 8676, 8788

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A045879, A188065, A373190, A373191.

Sequence in context: A085441 A098292 A031525 * A031705 A158396 A098263

Adjacent sequences: A373189 A373190 A373191 * A373193 A373194 A373195

Keyword

nonn,base,less

Author

Erich Friedman, May 27 2024

Status

approved