|
%I #9 Jun 23 2013 13:09:26
%S 1,4,11,26,57,66,120,247,302,502,1013,1191,2036,2416,4083,4293,8178,
%T 14608,15619,16369,32752,47840,65519,88234,131054,152637,156190,
%U 262125,455192,478271,524268,1048555,1310354,1479726,2097130
%N Distinct elements occurring in triangle of Eulerian numbers (sorted).
%t 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 *)
%Y Cf. A008292, A014630.
%K nonn
%O 1,2
%A _David W. Wilson_
|
