%I #4 May 26 2013 15:40:51
%S 1,2,3,4,5,7,9,11,13,15,22,24,26,28,30,37,39,41,43,45,52,54,56,58,60,
%T 67,69,71,73,75,87,89,91,93,95,107,109,111,113,115,127,129,131,133,
%U 135,147,149,151,153,155,167,169,171,173,175,262,264,266,268,270
%N Smallest m such that A225985(m) = A014261(n).
%C A225985(a(n)) = A014261(n).
%H Reinhard Zumkeller, <a href="/A226091/b226091.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (elemIndex)
%o import Data.Maybe (fromJust)
%o a226091 = (+ 1) . fromJust . (`elemIndex` a225985_list) . a014261
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, May 26 2013
|