A333302 Numbers produced by iteratively sorting the digits of the last number from largest to smallest in base 10 and then doubling, starting with the number 1.

1, 2, 4, 8, 16, 122, 442, 884, 1768, 17522, 150442, 1088420, 17684200, 175284200, 1750844200, 17508842000, 177508420000, 1755084200000, 17510842000000, 175084220000000, 1750844200000000, 17508842000000000, 177508420000000000, 1755084200000000000

Offset

1,2

Comments

It appears that the first 8 digits begin to cycle in a period of 6 while adding one zero every iteration.

Links

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

Mathematica

a[1] = 1; a[n_] := a[n] = 2 FromDigits@ Reverse@ Sort@ IntegerDigits@ a[n-1]; Array[a, 24] (* Giovanni Resta, Apr 15 2020 *)

Prog

(PARI) lista(nn) = {my(a=1); print1(a, ", "); for (n=2, nn, a = 2*fromdigits(vecsort(digits(a), , 4)); print1(a, ", "); ); } \\ Michel Marcus, Apr 16 2020

Crossrefs

Cf. A004000, A057615, A095197.

Sequence in context: A323453 A277280 A095197 * A321532 A061581 A046251

Adjacent sequences: A333299 A333300 A333301 * A333303 A333304 A333305

Keyword

nonn,base

Author

Ethan Hulinsky, Mar 14 2020

Status

approved