This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A258199 #15 Aug 31 2016 10:26:37
%S A258199 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,
%T A258199 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,
%U A258199 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
%N A258199 a(n) = largest term of A001563 <= n.
%H A258199 Antti Karttunen, <a href="/A258199/b258199.txt">Table of n, a(n) for n = 0..4319</a>
%F A258199 a(n) = A001563(A258198(n)).
%t A258199 Table[# #! &@ NestWhile[# + 1 &, 0, # #! <= n &[# + 1] &], {n, 0, 96}] (* _Michael De Vlieger_, Aug 31 2016 *)
%o A258199 (Scheme, two variants)
%o A258199 (define (A258199 n) (let loop ((k 1) (f 1)) (if (> (* k f) n) (* (- k 1) (/ f k)) (loop (+ k 1) (* (+ k 1) f)))))
%o A258199 (define (A258199 n) (A001563 (A258198 n)))
%Y A258199 Cf. A001563, A258198, A256450, A276334.
%K A258199 nonn
%O A258199 0,5
%A A258199 _Antti Karttunen_, May 23 2015