login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A210457 Triangular array read by rows: T(n,k) is the number of elements x in {1,2,...,n} such that |(f^-1)(x)| = k  over all functions f:{1,2,...,n}->{1,2,...,n}; n>=0, 0<=k<=n. 1
0, 0, 1, 2, 4, 2, 24, 36, 18, 3, 324, 432, 216, 48, 4, 5120, 6400, 3200, 800, 100, 5, 93750, 112500, 56250, 15000, 2250, 180, 6, 1959552, 2286144, 1143072, 317520, 52920, 5292, 294, 7, 46118408, 52706752, 26353376, 7529536, 1344560, 153664, 10976, 448, 8 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

Row sums = n^(n+1) = Sum_{k=1..n} T(n,k)*k.

Column for k=0 is A209290.

Distribution is Poisson with mean = 1.

LINKS

Alois P. Heinz, Rows n = 0..140, flattened

FORMULA

T(n,k) = binomial(n,k)*(n-1)^(n-k)*n.

EXAMPLE

0;

0,       1;

2,       4,       2;

24,      36,      18,      3;

324,     432,     216,     48,     4;

5120,    6400,    3200,    800,    100,   5;

93750,   112500,  56250,   15000,  2250,  180,  6;

1959552, 2286144, 1143072, 317520, 52920, 5292, 294, 7;

MATHEMATICA

nn=7; f[list_]:=Sum[list[[i]]*(i-1), {i, 1, Length[list]}]; g[list_]:= Select[list, #>0&]; Prepend[Insert[Map[g, Transpose[Table[Table[f[ CoefficientList[n!Coefficient[Series[(Exp[x]-x^m/m!+y x^m/m!)^n, {x, 0, nn}], x^n], y]], {n, 1, nn}], {m, 0, nn}]]], 0, {1, 1}], {0}]//Grid

CROSSREFS

Sequence in context: A295390 A059890 A295640 * A006496 A263931 A259685

Adjacent sequences:  A210454 A210455 A210456 * A210458 A210459 A210460

KEYWORD

nonn,tabl

AUTHOR

Geoffrey Critzer, Jan 21 2013

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 2 16:49 EDT 2020. Contains 334787 sequences. (Running on oeis4.)