|
|
COMMENTS
| 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
a(4), if it exists, exceeds 85564000000^5 (has at least 55 digits). [From Sean A. Irvine (sairvin(AT)xtra.co.nz), Mar 18 2010]
|
|
|
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(AT)rgwv.com), Apr 21 2008 *)
|
