|
%I #7 Mar 30 2012 18:51:10
%S 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,
%T 99,100,111,200,222,300,333,400,444,500,555,600,666,700,777,800,888,
%U 900,999,1000,1111,2000,2222,3000,3333,4000,4444,5000,5555,6000
%N Numbers m such that A193459(m) = A000005(m).
%C Union of A037124 and A010785, apart from initial 0.
%o (Haskell)
%o import Data.List (elemIndices)
%o a193460 n = a193460_list !! (n-1)
%o a193460_list = elemIndices 0 $ 1 : zipWith (-) a193459_list a000005_list
%K nonn,base,easy
%O 1,2
%A _Reinhard Zumkeller_, Jul 26 2011
|
