OFFSET
0,3
COMMENTS
If a number contains a zero, then some permutation will yield a number with a leading zero, which is already in the sequence without the leading zero. So that permutation is not included. For example, 102 contains a zero, so 012 and 021 are permutations of these numbers' digits. But they are actually 12 and 21, which are already in the sequence. This leaves 120, 201 and 210 to be added to the sequence after 102.
From Rémy Sigrist, May 01 2017 : (Start)
- This sequence is to base 10 what A187769 is to base 2,
- Beyond the initial 0, this sequence can be seen as an irregular table, where the n-th row corresponds to the permutation class of A179239(n).
(End)
LINKS
David A. Corneth, Table of n, a(n) for n = 0..10000
MATHEMATICA
a = {0}; f[n_] := Block[{w = Sort@ Permutations@ IntegerDigits@ n}, w = Delete[w, Position[First /@ w, 0]]]; Do[If[! MemberQ[a, n], AppendTo[a, FromDigits /@ f@ n]], {n, 105}]; DeleteDuplicates@ Flatten@ a (* Michael De Vlieger, Sep 07 2015 *)
CROSSREFS
KEYWORD
AUTHOR
David A. Corneth, Aug 17 2015
STATUS
approved