A151951 a(1) = 1113; thereafter a(n) = (a(n-1) with digits sorted into descending order) - (a(n-1) with digits sorted into ascending order) (see the Kaprekar map, A151949).

1113, 1998, 8082, 8532, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174, 6174

Offset

1,1

Links

Table of n, a(n) for n=1..40.

Index entries for the Kaprekar map

Mathematica

NestList[FromDigits[Reverse[Sort[IntegerDigits[#]]]]-FromDigits[Sort[ IntegerDigits[ #]]]&, 1113, 40] (* or *) PadRight[{1113, 1998, 8082, 8532}, 40, {6174}] (* Harvey P. Dale, May 10 2021 *)

Crossrefs

Cf. A099009, A151947, A151949, A151950, A069746.

Sequence in context: A225351 A066484 A199982 * A190017 A027622 A259295

Adjacent sequences: A151948 A151949 A151950 * A151952 A151953 A151954

Keyword

nonn,base

Author

N. J. A. Sloane, Aug 18 2009

Status

approved