A137468 Fifth powers whose digits are all odd.
1, 759375, 39135393
Offset: 1
Examples
759375 = 15^5 and 39135393 = 33^5.
Programs
-
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, Apr 21 2008 *)
Comments