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).

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

Author

Labos Elemer, Jul 26 2000

Keywords

• nonn

Comments

Numbers k such that A056039(k) > floor(k/2) + 1. - Amiram Eldar, May 24 2024

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A056038, A056039, A056042, A056043, A056044.

Subsequence of A056067.

Programs

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 *)