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 A176188 #7 May 10 2019 22:12:10 %S A176188 9,13,14,18,21,24,28,30,33,36,38,40,43,47,49,50,54,55,56,59,60,62,64, %T A176188 66,67,69,71,72,76,80,81,85,87,89,91,92,93,94,100,103,107,109,110,112, %U A176188 113,114,115,117,120,121,123,125,126,129,134,138,139,141,142,143,151 %N A176188 Positions m for which A176187(m)=3. %p A176188 A002326 := proc(n) if n = 0 then 1; else numtheory[order](2,2*n+1) ; end if; end proc: %p A176188 A176187 := proc(n) local xtrack,xitr,xpos ; xtrack := [A002326(n)] ; while true do xitr := A002326(op(-1,xtrack)) ; if not member(xitr, xtrack,'xpos') then xtrack := [op(xtrack),xitr] ; else return 1+nops(xtrack)-xpos ; end if; end do: end proc: %p A176188 A176188 := proc(n) if n =1 then 9 ; else for a from procname(n-1)+1 do if A176187(a) = 3 then return a; end if; end do: end if; end proc: %p A176188 seq(A176188(n),n=1..80) ; # _R. J. Mathar_ Nov 04 2010 %Y A176188 Cf. A002326, A176187. %K A176188 nonn %O A176188 1,1 %A A176188 _Vladimir Shevelev_, Apr 11 2010 %E A176188 More terms from _R. J. Mathar_, Nov 04 2010