|
Search: id:A129925
|
|
|
| A129925 |
|
Triangular sequence based on A002301 and the alternating groups a prime -adic: t(n,m)=n!/Prime[m] for n>=Prime[m]. |
|
+0
1
|
|
| 1, 3, 2, 12, 8, 60, 40, 24, 360, 240, 144, 2520, 1680, 1008, 720, 20160, 13440, 8064, 5760, 181440, 120960, 72576, 51840, 1814400, 1209600, 725760, 518400, 19958400, 13305600, 7983360, 5702400, 3628800, 239500800, 159667200, 95800320, 68428800
(list; table; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Alternating groups are: An->n!/2 for n>=2 If the tritonic or triplet symmetric groups are: Tn->n!/3 for n>=4 Then the pentatonic would be: Pn->n!/5 for n>=5 General: ( triangular sequence) G(m)n=n!/Prime[m] for n>=Prime[m]
|
|
FORMULA
|
t(n,m)=n!/Prime[m] for n>=Prime[m]
|
|
EXAMPLE
|
{1},
{3, 2},
{12, 8},
{60, 40, 24},
{360, 240, 144},
{2520, 1680, 1008, 720},
{20160, 13440, 8064, 5760},
{181440, 120960, 72576, 51840},
{1814400, 1209600, 725760, 518400},
|
|
MATHEMATICA
|
g[n_, m_] = If[n >= Prime[m], n!/Prime[m], {}]; a = Table[Flatten[Table[g[n, m], {m, 1, n}]], {n, 1, 23}]; Flatten[a]
|
|
CROSSREFS
|
Cf. A002301.
Sequence in context: A016560 A122407 A098646 this_sequence A057779 A005220 A114798
Adjacent sequences: A129922 A129923 A129924 this_sequence A129926 A129927 A129928
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 06 2007
|
|
|
Search completed in 0.002 seconds
|
