login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A255874 Triangular array T:  T(n,k) = number of subset S of {1,2,...,n+1} such that |S| > 1 and max(S*) = k, where S* is the set {x(2)-x(1), x(3)-x(2), ..., x(h+1)-x(h)} when the elements of S are written as x(1) < x(2) < ... < x(h+1). 2
1, 3, 1, 6, 4, 1, 10, 11, 4, 1, 15, 25, 12, 4, 1, 21, 51, 31, 12, 4, 1, 28, 97, 73, 32, 12, 4, 1, 36, 176, 162, 79, 32, 12, 4, 1, 45, 309, 345, 185, 80, 32, 12, 4, 1, 55, 530, 713, 418, 191, 80, 32, 12, 4, 1, 66, 894, 1441, 920, 441, 192, 80, 32, 12, 4, 1 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Column 1:  A000217.  Conjectures:  Column 2 = A014162, and the rows have a limiting tail (1,4,12,32,...) = A001787.

LINKS

Table of n, a(n) for n=1..66.

EXAMPLE

First nine rows:

1

3   1

6   4   1

10  11  4   1

15  25  12  4   1

21  51  31  12  4   1

28  97  73  32  12  4   1

36  172 162 79  32  12  4  1

45  309 345 185 80  32  12  4  1

T(3,1) counts these 6 subsets:  {1,2}, {2,3}, {3,4}, {1,2,3}, {2,3,4}, {1,2,3,4};

T(3,2) counts these 4 subsets:  {1,3}, {2,4}, {1,2,4}, {1,3,4};

T(3,3) = counts this subset: {1,4}.

MATHEMATICA

s[n_] := Subsets[Range[1, n]]; v[n_] := Map[Max, Map[Differences, s[n]]]

t = Table[Count[v[n], k], {n, 1, 15}, {k, 1, n - 1}]

Flatten[t]   (* A255874 sequence *)

TableForm[t] (* A255874 array *)

CROSSREFS

Cf. A000217, A014162.

Sequence in context: A086270 A104712 A122177 * A108286 A185944 A131415

Adjacent sequences:  A255871 A255872 A255873 * A255875 A255876 A255877

KEYWORD

nonn,tabl,easy

AUTHOR

Clark Kimberling, Mar 08 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified June 23 21:29 EDT 2017. Contains 288675 sequences.