This site is supported by donations to The OEIS Foundation.

 Please make a donation to keep the OEIS running. We are now in our 55th year. In the past year we added 12000 new sequences and reached 8000 citations (which often say "discovered thanks to the OEIS"). We need to raise money to hire someone to manage submissions, which would reduce the load on our editors and speed up editing. Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A034289 Squares which can be rearranged into squares with the same number of digits. 4
 144, 169, 196, 256, 441, 625, 961, 1024, 1089, 1296, 1369, 1764, 1936, 2401, 2916, 4096, 4761, 9216, 9604, 9801, 10201, 10404, 10609, 11236, 11664, 12100, 12544, 12769, 14400, 14884, 16384, 16641, 16900, 17689, 18225, 18769, 19600, 20736 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Squares that have some nontrivial permutation of digits which are also squares. There are 87 10-digit squares whose digits are a permutation of the digits 0..9. - T. D. Noe, Jan 23 2008 LINKS Gauray Kumar, Table of n, a(n) for n = 1..10000 (terms 1..1611 from T. D. Noe) Gauray Kumar, Terms up to 10^9 EXAMPLE 144 is a square and so is 441, which is formed by rearranging the digits of 144. MATHEMATICA sndQ[n_]:=Module[{p=Select[FromDigits/@Permutations[IntegerDigits[n]], IntegerLength[ #] == IntegerLength[n]&]}, Length[Select[ p, IntegerQ[ Sqrt[#]]&]]>1]; Select[Range[150]^2, sndQ] (* Harvey P. Dale, Feb 18 2015 *) PROG (Perl) #!/usr/bin/perl # change this to compute more terms: \$max_digits = 5; # put the squares into a hash table; for example # 46 -> 64 # 144 -> 144 441 # 169 -> 169 196 961 \$max_i = sqrt(10 ** \$max_digits); for \$i (1..\$max_i) {     \$i_sq = \$i * \$i;     \$normalized = join('', sort(split(//, "\$i_sq")));     \$sq_hash{"\$normalized"} .= "\$i_sq "; } # find the hash entries with more than one square foreach (values(%sq_hash)) { \$nums .= \$_ if (/ \d/); } # print the numbers in order print join(' ', sort( { \$a <=> \$b } split(' ', "\$nums"))); # Jonathan Cross (jcross(AT)juggler.net), Oct 18 2003 CROSSREFS Sequence in context: A294575 A205190 A085426 * A062917 A035090 A064021 Adjacent sequences:  A034286 A034287 A034288 * A034290 A034291 A034292 KEYWORD nonn,base AUTHOR EXTENSIONS B-file shortened by N. J. A. Sloane, Dec 08 2018 STATUS approved

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

Last modified December 15 04:23 EST 2019. Contains 329991 sequences. (Running on oeis4.)