A181073 Permutations of lengths 1,2,3,... arranged lexicographically that are relatively prime to 30.
1, 1243, 1423, 2143, 2341, 2413, 2431, 3241, 3421, 4123, 4213, 4231, 4321, 1234567, 1234657, 1235467, 1235647, 1236457, 1236547, 1243567, 1243657, 1245367, 1245637, 1245673, 1245763, 1246357, 1246537, 1246573, 1246753
Offset: 1
Links
Programs
-
Mathematica
f[n_] := Select[ FromDigits@ # & /@ Permutations@ Range@ n, Mod[#, 2] != 0 && Mod[#, 3] != 0 && Mod[#, 5] != 0 &]; Take[ Flatten@ Array[f, 7], 35]
Comments