%I #15 Oct 16 2024 20:17:54
%S 1,2,5,7,10,11,14,15,22,30,37,41,49,61,74,98,122
%N Positive numbers k such that all the digits in the octal expansion of k^3 are distinct.
%C There are no terms >= 2^8 because 2^24-1 is the largest eight-digit octal number.
%e 11 is a term because 11^3 = 1331 = 2463_8 in octal and no octal digit occurs more than once.
%t Select[Range[2^8],Length[IntegerDigits[#^3,8]]==Length[Union[IntegerDigits[#^3,8]]]&] (* _James C. McMahon_, Oct 16 2024 *)
%o (Python)
%o for k in range(1, 2**8):
%o octal = format(k**3, "o")
%o if len(octal) == len(set(octal)): print(k, end=",")
%Y Cf. A007094, A129525, A376897.
%K base,fini,full,nonn,new
%O 1,2
%A _Kalle Siukola_, Oct 08 2024