A193460 Numbers m such that A193459(m) = A000005(m).

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 22, 30, 33, 40, 44, 50, 55, 60, 66, 70, 77, 80, 88, 90, 99, 100, 111, 200, 222, 300, 333, 400, 444, 500, 555, 600, 666, 700, 777, 800, 888, 900, 999, 1000, 1111, 2000, 2222, 3000, 3333, 4000, 4444, 5000, 5555, 6000

Offset: 1

Author

Reinhard Zumkeller, Jul 26 2011

Keywords

• nonn
• base
• easy

Comments

Union of A037124 and A010785, apart from initial 0.

Programs

Haskell

import Data.List (elemIndices)
a193460 n = a193460_list !! (n-1)
a193460_list = elemIndices 0 $ 1 : zipWith (-) a193459_list a000005_list