login
A056068
Numbers k such that k! is divisible by the square of (f+d)!^2 for d = 0, 1 and 2 (and possibly larger d), where f = floor(k/2).
4
416, 417, 916, 917, 1974, 1975, 2440, 2441, 2910, 2911, 3194, 3195, 3778, 3779, 4024, 4025, 4288, 4289, 4660, 4661, 4954, 4955, 5326, 5327, 5982, 5983, 6706, 6707, 6830, 6831, 6860, 6861, 6878, 6879, 6950, 6951, 6952, 6953, 7102, 7103, 7126, 7127
OFFSET
1,1
COMMENTS
Numbers k such that A056039(k) > floor(k/2) + 1. - Amiram Eldar, May 24 2024
LINKS
MATHEMATICA
q[n_] := Module[{k = 1}, NestWhile[#/(++k)^2 &, n!, IntegerQ]; k - 1] > Floor[n/2] + 1; Select[Range[7200], q] (* Amiram Eldar, May 24 2024 *)
CROSSREFS
Subsequence of A056067.
Sequence in context: A166057 A306381 A172779 * A224602 A249006 A249471
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 26 2000
STATUS
approved