A072544 Numbers whose smallest decimal digit is also the initial digit.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 27, 28, 29, 33, 34, 35, 36, 37, 38, 39, 44, 45, 46, 47, 48, 49, 55, 56, 57, 58, 59, 66, 67, 68, 69, 77, 78, 79, 88, 89, 99, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 122, 123, 124

Offset: 1

Author

Reinhard Zumkeller, Aug 04 2002

Keywords

• nonn
• base

Comments

A054054(a(n)) = A000030(a(n));

the sequence differs from A009994, A032857 and A032898: a(65)=121 is not in A009994, a(58)=113 is not in A032857 and a(56)=111 is not in A032898.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A072543, A009994.

Programs

Haskell

a072544 n = a072544_list !! (n-1)
a072544_list = [x | x <- [0..], a054054 x == a000030 x]
-- Reinhard Zumkeller, Apr 25 2012

Mathematica

sddiQ[n_]:=Module[{idn=IntegerDigits[n]},First[idn]==Min[idn]]; Select[ Range[ 0,130],sddiQ] (* Harvey P. Dale, Oct 30 2011 *)