A023077 Positive numbers k such that k and 6*k are anagrams in base 8 (written in base 8).
101426, 114276, 114627, 1001426, 1014026, 1014260, 1026014, 1026615, 1054614, 1061454, 1064127, 1065432, 1140276, 1140627, 1142760, 1142776, 1145476, 1146270, 1146277, 1147546, 1162675, 1202547, 1234567, 10001426, 10014026, 10014260
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A007094.
Programs
-
Mathematica
FromDigits[IntegerDigits[#,8]]&/@Select[Range[3*10^6],Sort[ IntegerDigits[ #,8]] == Sort[IntegerDigits[6#,8]]&] (* Harvey P. Dale, Dec 31 2015 *)