cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A200865 Number of 0..2 arrays x(0..n+1) of n+2 elements without any interior element greater than both neighbors or less than both neighbors.

Original entry on oeis.org

17, 37, 77, 163, 343, 723, 1523, 3209, 6761, 14245, 30013, 63235, 133231, 280707, 591427, 1246089, 2625409, 5531525, 11654477, 24555043, 51735495, 109002515, 229659507, 483874057, 1019483609, 2147969733, 4525598973, 9535072003
Offset: 1

Views

Author

R. H. Hardin, Nov 23 2011

Keywords

Comments

Column 2 of A200871.

Examples

			Some solutions for n=3
..0....2....0....2....2....0....0....0....0....1....2....2....0....0....0....2
..0....2....0....2....1....1....0....1....1....0....2....0....2....0....2....1
..1....2....2....1....0....2....0....1....1....0....1....0....2....0....2....1
..2....2....2....1....0....2....0....2....0....1....1....1....2....1....2....1
..2....2....0....2....0....2....2....2....0....1....1....2....2....2....0....1
		

Programs

  • Mathematica
    a[0,x_,y_] := 1; a[n_,x_,y_] := a[n,x,y] = Sum[If[z <=x<= y || y <=x<= z, a[n-1, z, x], 0], {z, 3}]; a[n_] := Sum[a[n, x, y], {x, 3}, {y, 3}]; Array[a, 25] (* Giovanni Resta, Mar 05 2014 *)

Formula

Empirical: a(n) = 2*a(n-1) +a(n-4).
Empirical g.f.: x*(17 + 3*x + 3*x^2 + 9*x^3) / (1 - 2*x - x^4). - Colin Barker, Oct 15 2017