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 A227946 #33 Nov 11 2013 10:29:40 %S A227946 1,2,7,19,47,163,487,1307,2879,19683,39367,177147,531441,1594323, %T A227946 4782969,14348907,43046721,86093443,258280327,688747547,3486784401, %U A227946 10460353203 %N A227946 Smallest m such that the number of iterations of "take odd part of phi" to reach 1 from m (A227944) is n. %C A227946 The odd part of a number is its largest odd divisor (A000265), phi is Euler's totient function (A000010). - _Alonso del Arte_, Oct 13 2013 %F A227946 a(n) = smallest m such that A227944(m)=n. %e A227946 a(1) = 2 because just one step is needed to reach 1 from 2, since phi(2) = 1. The numbers 3, 4, 5 and 6 also take one step. %e A227946 a(2) = 7 because two steps are needed to reach 1 from 7: phi(7) = 6, the odd part of which is 3, and phi(3) = 2, the odd part of which is 1. The numbers from 8 to 18 take one or two steps to reach 1. %e A227946 a(3) = 19 because three steps are needed to reach 1 from 19: phi(19) = 18, the odd part of which is 9, and phi(9) = 6, the odd part of which is 3, and phi(3) = 2, the odd part of which is 1. %o A227946 (Haskell) %o A227946 import Data.List (elemIndex); import Data.Maybe (fromJust) %o A227946 a227946 = (+ 1) . fromJust . (`elemIndex` a227944_list) %o A227946 -- _Reinhard Zumkeller_, Nov 10 2013 %Y A227946 A variant of A049117. - _R. J. Mathar_, Oct 06 2013 %Y A227946 Cf. A007755, A053575, A000010. %K A227946 nonn,more %O A227946 0,2 %A A227946 _Max Alekseyev_, Oct 03 2013 %E A227946 a(15) through a(21) copied over from A049117 by _Max Alekseyev_, Oct 13 2013