Many excellent designs for a new banner were submitted. We will use the best of them in rotation.
0,2
[Empirical] a(base,n)=a(base-1,n)+A025014(n+1) for base>=4.int(n/2)+1
Table of n, a(n) for n=0..19.
(S/R) stvar $[N]:(0..M-1) init $[]:=0 asgn $[]->{*} kill +[i in 0..N-1](($[i]`-$[(i+1)mod N]`>4)+($[(i+1)mod N]`-$[i]`>4))
Sequence in context: A000432 A153336 A080279 * A111996 A016129 A006631
Adjacent sequences: A125342 A125343 A125344 * A125346 A125347 A125348
nonn,base
R. H. Hardin, Dec 28 2006
approved
