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

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

John Case, COLT Page?

Mathematica

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

Crossrefs

Cf. A028907.

Sequence in context: A198178 A013571 A002942 * A265148 A220445 A360751

Adjacent sequences: A028905 A028906 A028907 * A028909 A028910 A028911

Keyword

nonn,base

Author

N. J. A. Sloane

Extensions

More terms from Patrick De Geest, Apr 15 1998

Status

approved