0,2

[Empirical] a(base,n)=a(base-1,n)+A002426(n+1) for base>=1.int(n/2)+1

(S/R) stvar $[N]:(0..M-1) init $[]:=0 asgn $[]->{*} kill +[i in 0..N-1](($[i]`-$[(i+1)mod N]`>1)+($[(i+1)mod N]`-$[i]`>1))

Sequence in context: A153588 A077946 A077970 this_sequence A081669 A086821 A007576

Adjacent sequences: A124693 A124694 A124695 this_sequence A124697 A124698 A124699

nonn

Ron Hardin (rhhardin(AT)att.net), Dec 28 2006