|
COMMENT
|
This is to fifth powers as A014261 is to first powers, and as A030100 is to cubes.
There may be no further terms. - Robert G. Wilson v, Apr 21 2008
The 4th entry is larger than 6617205^5 (has at least 35 digits) if it exists. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 29 2008
|
|
MATHEMATICA
|
fQ[n_] := Union@ Join[{1, 3, 5, 7, 9}, IntegerDigits@ n] == {1, 3, 5, 7, 9}; lst = {}; Do[ If[ fQ[(2 n - 1)^5], AppendTo[lst, (2 n - 1)^5]], {n, 2^29}]; lst (* Robert G. Wilson v, (rgwv@rgwv.com), Apr 21 2008 *)
|