The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A007937 Nonsquares such that some permutation of digits is a square. 4
 10, 18, 40, 46, 52, 61, 63, 90, 94, 106, 108, 112, 136, 148, 160, 163, 180, 184, 205, 211, 234, 243, 250, 252, 259, 265, 279, 295, 297, 298, 306, 316, 342, 360, 406, 409, 414, 418, 423, 432, 448, 460, 478, 481, 487, 490, 502, 520, 522, 526, 562, 567, 592 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Harvey P. Dale, Table of n, a(n) for n = 1..2500 F. Smarandache, Only Problems, Not Solutions!, Xiquan Publ., Phoenix-Chicago, 1993. FORMULA A062892(a(n)) > 0. MATHEMATICA Select[Range[600], !IntegerQ[Sqrt[#]]&&AnyTrue[FromDigits/@ Permutations[ IntegerDigits[ #]], IntegerQ[ Sqrt[#]]&]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 17 2020 *) PROG (Python) from math import isqrt from sympy.utilities.iterables import multiset_permutations as mp def sqr(n): return isqrt(n)**2 == n def ok(n): if sqr(n): return False s = str(n) return any(sqr(int("".join(p))) for p in mp(s, len(s))) print([k for k in range(600) if ok(k)]) # Michael S. Branicky, Oct 18 2021 CROSSREFS Cf. A000290, A062892, A096600. Sequence in context: A189323 A064485 A007938 * A300601 A301326 A350317 Adjacent sequences: A007934 A007935 A007936 * A007938 A007939 A007940 KEYWORD nonn,base AUTHOR R. Muller EXTENSIONS More terms from Reinhard Zumkeller, Jun 29 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 5 05:23 EDT 2023. Contains 363130 sequences. (Running on oeis4.)