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

Author

Ethan Hulinsky, Mar 14 2020

Keywords

• nonn
• base

Comments

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

Crossrefs

Cf. A004000, A057615, A095197.

Programs

Mathematica

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

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