OFFSET
1,1
MAPLE
A002326 := proc(n) if n = 0 then 1; else numtheory[order](2, 2*n+1) ; end if; end proc:
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:
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:
seq(A176188(n), n=1..80) ; # R. J. Mathar Nov 04 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 11 2010
EXTENSIONS
More terms from R. J. Mathar, Nov 04 2010
STATUS
approved