|
%I #16 Sep 11 2018 03:29:24
%S 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,
%T 34,35,36,37,38,39,44,46,47,48,49,57,66,67,68,77,79,88,89,99,111,112,
%U 113,114,115,116,117,118,119,122,123,124,126,127,128,129,133,134
%N Numbers with digits in nondecreasing order and with multiplicative digital root > 0.
%C 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.
%t Select[Range@ 134, And[FixedPoint[Times @@ IntegerDigits@ # &, #] != 0, AllTrue[Differences@ IntegerDigits@ #, # >= 0 &]] &] (* _Michael De Vlieger_, Aug 25 2018 *)
%Y Cf. A009994, A277061, A299690.
%K nonn,base
%O 1,2
%A _David A. Corneth_, Aug 23 2018
|
