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,1

Comments

A062892(a(n)) = 0.

Links

David A. Corneth, Table of n, a(n) for n = 1..10000

Example

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.

Mathematica

Select[Range[100], NoneTrue[Sqrt[#]&/@(FromDigits/@Permutations[IntegerDigits[ #]]), IntegerQ]&] (* Harvey P. Dale, Dec 04 2022 *)

Crossrefs

Cf. A007937, A096599, A000037, A067013.

Sequence in context: A028758 A028803 A050942 * A122686 A161873 A224517

Adjacent sequences: A096597 A096598 A096599 * A096601 A096602 A096603

Keyword

nonn,easy,base

Author

Reinhard Zumkeller, Jun 29 2004

Status

approved