A318275 Numbers with digits in nondecreasing order and with multiplicative digital root > 0.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 26, 27, 28, 29, 33, 34, 35, 36, 37, 38, 39, 44, 46, 47, 48, 49, 57, 66, 67, 68, 77, 79, 88, 89, 99, 111, 112, 113, 114, 115, 116, 117, 118, 119, 122, 123, 124, 126, 127, 128, 129, 133, 134

Offset: 1

Author

David A. Corneth, Aug 23 2018

Keywords

• nonn
• base

Comments

This sequence is a primitive sequence of A277061, it has digits in nondecreasing order. Terms in A277061 can be found by permuting digits of terms of this sequence.

Crossrefs

Cf. A009994, A277061, A299690.

Programs

Mathematica

Select[Range@ 134, And[FixedPoint[Times @@ IntegerDigits@ # &, #] != 0, AllTrue[Differences@ IntegerDigits@ #, # >= 0 &]] &] (* Michael De Vlieger, Aug 25 2018 *)