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, 2203488, 4194281, 4537314, 8388584

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Crossrefs

Cf. A008292, A014630.

Programs

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 *)

Extensions

a(36)-a(39) from Pontus von Brömssen, Jul 19 2024