A256242 Numbers having digits in nondecreasing order and repeatedly setting n := A066308(n) yields a constant nonzero n.
1, 89, 135, 139, 144, 233, 1224, 1367, 11249, 12222, 111126, 111266, 111338, 112229, 112337, 1111119, 1111134, 1111137, 1111177, 1111333, 1111346, 11111117, 11111119, 11111223, 11112236, 111111119, 111111139, 111111299, 111112334, 1111111169, 1111122233, 11111111118, 11111111133, 11111111369, 111111111133
Offset: 1
Links
- David A. Corneth, Table of n, a(n) for n = 1..166 (all elements below 10^100).
Programs
-
PARI
isok(n) = {d = digits(n); if (vecsort(d,,2) == d, ok = 1; while (ok, newn = sum(k=1, #d, d[k])*prod(k=1,#d, d[k]); if (! newn, return (0)); if (newn == n, return (1)); n = newn; d = digits(n);););} \\ Michel Marcus, Mar 27 2015
Comments