A093501 Numbers whose digit permutations are all squarefree numbers.
1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 22, 26, 30, 31, 33, 34, 35, 37, 38, 39, 41, 43, 47, 51, 53, 55, 58, 59, 62, 66, 70, 71, 73, 74, 77, 78, 79, 83, 85, 87, 91, 93, 95, 97, 101, 103, 107, 109, 110, 111, 113, 114, 115, 118, 119, 130, 131, 133, 134, 137, 138, 141
Offset: 1
Examples
103 is a term as 103, 301, 013, 031, 130, 310 all are squarefree.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A077337.
Programs
-
Mathematica
Select[Range[200],AllTrue[FromDigits/@Permutations[IntegerDigits[#]],SquareFreeQ]&] (* Harvey P. Dale, Jun 09 2024 *)
Extensions
More terms from David Wasserman, Oct 25 2006