|
Search: id:A123145
|
|
|
| A123145 |
|
a(n) = If Mod[n, 4] - 1 == 0 then a(n - 1) else n*a(n - 1). |
|
+0
1
|
|
| 1, 2, 6, 24, 24, 144, 1008, 8064, 8064, 80640, 887040, 10644480, 10644480, 149022720, 2235340800
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[1]=1; f[n_] := f[n] = If[Mod[n, 4] - 1 == 0, f[n - 1], n*f[n - 1]] a = Table[f[n], {n, 1, 20}]
|
|
CROSSREFS
|
Cf. A007559, A007696.
Sequence in context: A060068 A099732 A118381 this_sequence A079433 A110728 A066332
Adjacent sequences: A123142 A123143 A123144 this_sequence A123146 A123147 A123148
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 04 2006
|
|
|
Search completed in 0.002 seconds
|
