OFFSET
2,2
EXAMPLE
If n=4, 2*n-1=7, then we have 7<+>1=1, 7<->1=3, 7<+>3=5, 7<->5=1. Thus a(4)=4.
MAPLE
pidx := proc(L, n, m)
for i from 1 to nops(L)-1 do
if [op(i..i+1, L)] = [n, m] then
return i;
end if;
end do:
return -1 ;
end proc:
A179686aux := proc(x, y) local xtrack, xitr, p;
xtrack := [A000265(x+y)] ;
while true do
if type(nops(xtrack), 'odd') then
xitr := A000265(x-op(-1, xtrack)) ;
else
xitr := A000265(x+op(-1, xtrack)) ;
end if;
xtrack := [op(xtrack), xitr] ;
p := pidx(xtrack, op(-2, xtrack), op(-1, xtrack)) ;
if p >=1 and p < nops(xtrack) -2 then
return nops(xtrack)-p-1 ;
end if;
end do:
end proc:
A179686 := proc(n)
if n = 2 then
1;
else
A179686aux(2*n-1, 1) ;
end if;
end proc:
seq(A179686(n), n=2..80) ; # R. J. Mathar, Dec 04 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Jul 24 2010
EXTENSIONS
Extended beyond a(24) by R. J. Mathar, Dec 04 2011
STATUS
approved