A028908 Arrange digits of squares in descending order.

0, 1, 4, 9, 61, 52, 63, 94, 64, 81, 100, 211, 441, 961, 961, 522, 652, 982, 432, 631, 400, 441, 844, 952, 765, 652, 766, 972, 874, 841, 900, 961, 4210, 9810, 6511, 5221, 9621, 9631, 4441, 5211, 6100, 8611, 7641, 9841, 9631, 5220, 6211, 9220, 4320

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000
• John Case, COLT Page?

Crossrefs

Cf. A028907.

Programs

Mathematica

FromDigits[Sort[IntegerDigits[#],Greater]]&/@(Range[0,50]^2) (* Harvey P. Dale, May 08 2013 *)

Extensions

More terms from Patrick De Geest, Apr 15 1998