A030196 Distinct elements occurring in triangle of Eulerian numbers (sorted).

1, 4, 11, 26, 57, 66, 120, 247, 302, 502, 1013, 1191, 2036, 2416, 4083, 4293, 8178, 14608, 15619, 16369, 32752, 47840, 65519, 88234, 131054, 152637, 156190, 262125, 455192, 478271, 524268, 1048555, 1310354, 1479726, 2097130

Offset

1,2

Links

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

Mathematica

Euler[n_, k_] := Sum[(-1)^i Binomial[n+1, i] (k-i)^n, {i, 0, k}]; tvals = Flatten[Table[Euler[k, #] &/@ Range[k], {k, 100}]]; Sort[DeleteDuplicates[Select[tvals, # <= 2097130 &]]] (* Ant King, Jun 23 2013 *)

Crossrefs

Cf. A008292, A014630.

Sequence in context: A027660 A002940 A356620 * A248425 A356621 A130103

Adjacent sequences: A030193 A030194 A030195 * A030197 A030198 A030199

Keyword

nonn

Author

David W. Wilson

Status

approved