|
| |
|
|
A123145
|
|
a(n) = If Mod[n, 4] - 1 == 0 then a(n - 1) else n*a(n - 1).
|
|
0
| |
|
|
1, 2, 6, 24, 24, 144, 1008, 8064, 8064, 80640, 887040, 10644480, 10644480, 149022720, 2235340800
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 * A079433 A110728 A190424
Adjacent sequences: A123142 A123143 A123144 * 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
|
| |
|
|
