|
%I #27 Jan 14 2024 12:37:34
%S 7,14,42,168,840,5040,35280,282240,2540160,25401600,279417600,
%T 3353011200,43589145600,610248038400,9153720576000,146459529216000,
%U 2489811996672000,44816615940096000,851515702861824000
%N a(n) = 7 * n!.
%H Harry J. Smith, <a href="/A062098/b062098.txt">Table of n, a(n) for n = 1..100</a>
%H Luis Manuel Rivera, <a href="http://arxiv.org/abs/1406.3081">Integer sequences and k-commuting permutations</a>, arXiv preprint arXiv:1406.3081 [math.CO], 2014-2015.
%F a(n) = n*a(n-1), a(1) = 7.
%F a(n) = 7 * A000142(n) for n>0. - _Michel Marcus_, Aug 31 2013
%p G(x):=(x-8)/(1-x): f[0]:=G(x): for n from 1 to 19 do f[n]:=diff(f[n-1],x) od: x:=0: seq(-f[n],n=1..19); # _Zerinvary Lajos_, Apr 03 2009
%t Array[7 #! &, 19] (* _Michael De Vlieger_, Jul 01 2018 *)
%o (PARI) { a=7; for (n=1, 100, write("b062098.txt", n, " ", a*=n) ) } \\ _Harry J. Smith_, Aug 01 2009
%o (GAP) List([1..20],n->7*Factorial(n)); # _Muniru A Asiru_, Jul 01 2018
%K nonn,easy
%O 1,1
%A Dan Henry (daniel.henry(AT)umit.maine.com), Jun 28 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jul 05 2001
%E Offset changed from 7 to 1 by _Harry J. Smith_, Aug 01 2009
|
