login
A023743
Base 5 expansion uses each positive digit just once.
1
194, 198, 214, 222, 238, 242, 294, 298, 334, 346, 358, 366, 414, 422, 434, 446, 482, 486, 538, 542, 558, 566, 582, 586, 694, 698, 714, 722, 738, 742, 894, 898, 954, 970, 978, 990, 1014, 1022, 1054, 1070, 1102, 1110, 1138
OFFSET
1,1
LINKS
EXAMPLE
194 in base 5 is 1234.
1138 in base 5 is 14023; 14510 in base 5 is 431020. - Harvey P. Dale, Jul 26 2018
MATHEMATICA
Union[ Map[ Plus@@(Array[ (5^#)&, Length[ # ], 0 ]*#)&, Flatten[ Table[ Permutations[ Join[ Range[ 5-1 ], Array[ 0&, k ] ] ], {k, 0, 1} ], 1 ] ] ]
Table[FromDigits[#, 5]&/@Permutations[PadRight[{1, 2, 3, 4}, n, 0]], {n, 4, 5}]//Flatten//Union (* Harvey P. Dale, Jul 26 2018 *)
CROSSREFS
Sequence in context: A344147 A198483 A115735 * A025333 A025325 A294578
KEYWORD
nonn,base,easy
STATUS
approved