%I #4 Mar 30 2012 18:50:43
%S 1,1,0,1,0,1,0,-1,1,1,0,1,0,-1,-1,1,0,1,0,-1,1,1,0,-1,1,0,-1,1,0,1,0,
%T -1,1,0,-1,1,0,-1,-1,1,0,1,0,-1,1,1,0,-1,0,1,0,1,0,-1,0,1,1,1,0,1,0,
%U -1,-1,1,0,1,0,-1,0,1,0,1,0,-1,-1,0,-1,1,0,-1,1,1,0,-1,1,0,-1,1,0,-1
%N Indicating the neighbor with a greater greatest prime factor.
%C A093074(n)=A006530(n+a(n)); A006530(n)<=A006530(n+a(n)).
%K sign
%O 1,1
%A _Reinhard Zumkeller_, Mar 18 2004