%I #42 Apr 17 2022 09:25:56
%S 1,42,1008,18144,272160,3592512,43110144,480370176,5043886848,
%T 50438868480,484213137408,4489976365056,40409787285504,
%U 354362750042112,3037395000360960,25514118003032064,210491473525014528,1708695490967764992,13669563927742119936,107917609955858841600
%N 6-idempotent numbers.
%C Number of n-permutations of 7 objects: s, t, u, v, z, x, y with repetition allowed, containing exactly six u's. - _Zerinvary Lajos_, Jun 16 2008
%H Vincenzo Librandi, <a href="/A050988/b050988.txt">Table of n, a(n) for n = 6..400</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IdempotentNumber.html">Idempotent Number</a>.
%F a(n) = binomial(n,6)*6^(n-6).
%F G.f.: x^6/(1-6*x)^7. - _Zerinvary Lajos_, Aug 09 2008
%F From _Amiram Eldar_, Apr 17 2022: (Start)
%F Sum_{n>=6} 1/a(n) = 102561/5 - 112500*log(6/5).
%F Sum_{n>=6} (-1)^n/a(n) = 605052*log(7/6) - 466341/5. (End)
%p seq(binomial(n, 6)*6^(n-6), n=6..32); # _Zerinvary Lajos_, Jun 16 2008
%p A050988:=x^6/(1-6*x)^7; series(A050988,x,32); # _Zerinvary Lajos_, Aug 09 2008
%t a[n_] := Binomial[n, 6]*6^(n - 6); Array[a, 20, 6] (* _Amiram Eldar_, Apr 17 2022 *)
%Y Cf. A000027, A001788, A036216, A040075, A050982, A050989.
%K nonn,easy
%O 6,2
%A _Eric W. Weisstein_