This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A193460 #7 Mar 30 2012 18:51:10 %S A193460 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 A193460 99,100,111,200,222,300,333,400,444,500,555,600,666,700,777,800,888, %U A193460 900,999,1000,1111,2000,2222,3000,3333,4000,4444,5000,5555,6000 %N A193460 Numbers m such that A193459(m) = A000005(m). %C A193460 Union of A037124 and A010785, apart from initial 0. %o A193460 (Haskell) %o A193460 import Data.List (elemIndices) %o A193460 a193460 n = a193460_list !! (n-1) %o A193460 a193460_list = elemIndices 0 $ 1 : zipWith (-) a193459_list a000005_list %K A193460 nonn,base,easy %O A193460 1,2 %A A193460 _Reinhard Zumkeller_, Jul 26 2011