|
| |
|
|
A162945
|
|
Numbers n with squares that are concatenations n^2=x//y such x is an anagram of y.
|
|
0
| |
|
|
836, 3911, 6926, 6941, 9701, 9786, 32119, 35268, 39011, 40104, 40645, 40991, 41489, 42849, 43204, 45743, 49498, 50405, 50705, 54335, 55493, 57089, 57111, 59872, 60406, 62043, 64396, 64671, 66979, 68595, 69028, 69907, 70107, 72475, 73625, 75926, 76279
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Cases with leading zeros in y, for example 51674^2=2670202276, are not admitted.
|
|
|
EXAMPLE
| 836^2 = 698896 = 698//896 and 698 is an anagram of 896.
|
|
|
MAPLE
| isA162945 := proc(n) local n2, x, y ; n2 := convert(n^2, base, 10) ; if nops(n2) mod 2 = 0 then if op(nops(n2)/2, n2) <> 0 then y := sort( [op(1..nops(n2)/2, n2)] ); x := sort( [op(nops(n2)/2+1..nops(n2), n2)] ); RETURN( x = y) ; else false; fi; else false; fi; end:
for n from 1 to 90000 do if isA162945(n) then printf("%d, \n", n) ; fi; od: # R. J. Mathar, Jul 21 2009
|
|
|
CROSSREFS
| Sequence in context: A202773 A095257 A113856 * A138850 A016113 A177846
Adjacent sequences: A162942 A162943 A162944 * A162946 A162947 A162948
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Claudio L Meller (claudiomeller(AT)gmail.com), Jul 18 2009
|
|
|
EXTENSIONS
| Keyword:base added by R. J. Mathar (mathar(AT)strw.leidenuniv.nl) Jul 21 2009
|
| |
|
|
