|
|
A007919
|
|
Smallest k such that k*n is a double factorial.
|
|
1
|
|
|
1, 1, 1, 2, 3, 8, 15, 1, 105, 384, 945, 4, 10395, 46080, 1, 3, 2027025, 2560, 34459425, 192, 5, 3715891200, 13749310575, 2, 81081, 1961990553600, 35, 23040, 213458046676875, 128, 6190283353629375, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1}, While[Mod[k!!, n] > 0, k++]; k!!/n]; Array[f, 35] (* Robert G. Wilson v, Feb 18 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
R. Muller
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|