|
|
A030196
|
|
Distinct elements occurring in triangle of Eulerian numbers (sorted).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|