A134745 Numbers which are not permutational numbers A134640.

3, 4, 6, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 22, 23, 24, 25, 26, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 79, 80, 81, 82, 83, 84, 85, 86, 87

Offset

1,1

Links

Table of n, a(n) for n=1..71.

Mathematica

a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 5}]; c = Table[n, {n, 0, 44790}]; k = Complement[c, a] (*Artur Jasinski*)

Crossrefs

Cf. A134640, A134641, A134642, A134643, A134644, A134703, A134741, A134742, A134743, A134744.

Sequence in context: A118300 A263098 A317391 * A183867 A182829 A112800

Adjacent sequences: A134742 A134743 A134744 * A134746 A134747 A134748

Keyword

nonn

Author

Artur Jasinski, Nov 07 2007

Status

approved