|
0, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[# #! &@ NestWhile[# + 1 &, 0, # #! <= n &[# + 1] &], {n, 0, 96}] (* Michael De Vlieger, Aug 31 2016 *)
|
|
PROG
|
(Scheme, two variants)
(define (A258199 n) (let loop ((k 1) (f 1)) (if (> (* k f) n) (* (- k 1) (/ f k)) (loop (+ k 1) (* (+ k 1) f)))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|