A376898 Positive numbers k such that all the digits in the octal expansion of k^3 are distinct.
1, 2, 5, 7, 10, 11, 14, 15, 22, 30, 37, 41, 49, 61, 74, 98, 122
Offset: 1
Examples
11 is a term because 11^3 = 1331 = 2463_8 in octal and no octal digit occurs more than once.
Programs
-
Mathematica
Select[Range[2^8],Length[IntegerDigits[#^3,8]]==Length[Union[IntegerDigits[#^3,8]]]&] (* James C. McMahon, Oct 16 2024 *)
-
Python
for k in range(1, 2**8): octal = format(k**3, "o") if len(octal) == len(set(octal)): print(k, end=",")
Comments