OFFSET
1,2
COMMENTS
a(n) <= n, with equality if n is 1, 9, a prime or twice a prime. Are those the only cases of equality? - Robert Israel, Apr 22 2024
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)
F. Smarandache, Only Problems, Not Solutions!.
MAPLE
V:= Vector(100): count:= 0:
S:= {$1..100}:
for k from 1 while count < 100 do
v:= doublefactorial(k);
SP:= select(t -> v mod t = 0, S);
count:= count + nops(SP);
V[convert(SP, list)]:= k;
S:= S minus SP;
od:
convert(V, list); # Robert Israel, Apr 21 2024
MATHEMATICA
df[n_]:=Module[{k=1}, While[!Divisible[k!!, n], k++]; k]; Array[df, 80] (* Harvey P. Dale, Jun 04 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. Muller
STATUS
approved