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 A185038 #19 Oct 05 2014 04:01:10 %S A185038 1,8,15,64,7069,229826,62906548,104509874538,209233407362, %T A185038 474536678820,2653613575299,14802269029898 %N A185038 Positions at which A090895 (a(1) = 1 then a(n) = a(n-1)/2 if a(n-1) is even, a(n) = a(n-1) + n otherwise) reach the value of 1. %C A185038 It seems that this sequence is infinite. %e A185038 Example: the sequence a(1)=1 then a(n)=a(n-1)/2 if a(n-1) is even, a(n) = a(n-1) + n otherwise goes 1, 3, 6, 3, 8, 4, 2, 1, 10, 5, 16, 8, 4, 2, 1, etc... which has ones at 1, 8, 15, 64, etc... %o A185038 (Haskell) %o A185038 import Data.List (elemIndices) %o A185038 a185038 n = a185038_list !! (n-1) %o A185038 a185038_list = map (+ 1) $ elemIndices 1 a090895_list %o A185038 -- _Reinhard Zumkeller_, Mar 02 2012 %Y A185038 Cf. A090895. %K A185038 more,hard,nonn %O A185038 1,2 %A A185038 _Sergio Pimentel_, Mar 01 2012 %E A185038 a(8)-a(12) from _Hiroaki Yamanouchi_, Oct 04 2014