A096600 Numbers such that in decimal representation all permutations of digits are nonsquares.
2, 3, 5, 6, 7, 8, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 47, 48, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 62, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87
Offset: 1
Examples
134=2*67, 143=11*13, 314=2*157, 341=11*31, 413=7*59 and 431=A000040(83), therefore 134, 143, 314, 341, 413 and 431 are terms.
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[100],NoneTrue[Sqrt[#]&/@(FromDigits/@Permutations[IntegerDigits[ #]]),IntegerQ]&] (* Harvey P. Dale, Dec 04 2022 *)
Comments