A023744 Base 6 expansion uses each positive digit just once.
1865, 1870, 1895, 1905, 1930, 1935, 2045, 2050, 2105, 2120, 2140, 2150, 2255, 2265, 2285, 2300, 2355, 2360, 2470, 2475, 2500, 2510, 2535, 2540, 2945, 2950, 2975, 2985, 3010, 3015, 3305, 3310, 3395, 3415, 3430, 3445
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..720
Crossrefs
Cf. A031947.
Programs
-
Mathematica
Union[ Map[ Plus@@(Array[ (6^#)&, Length[ # ], 0 ]*#)&, Permutations[ Range[ 6-1 ] ] ] ] FromDigits[#,6]&/@Permutations[Range[0,5]] (* Harvey P. Dale, Jan 22 2013 *)
Extensions
Keyword "fini" added by Harvey P. Dale, Jan 22 2013
Comments