STATUS
editing
approved
editing
approved
nonn,easy,changed
approved
editing
editing
approved
Only differs from A011976 when n = 7, 9, 10, or 19. - Nathaniel Johnston, Jan 10 2024
a(n) = ceiling((n/4)*ceiling((n-1)/3)). - Nathaniel Johnston, Jan 10 2024
approved
editing
proposed
approved
editing
proposed
schoenheim[n_, k_, t_] := Module[{lb = 1, n1 = n, k1 = k, t1 = t}, n1 += 1 - t1; k1 += 1 - t1; While[t1 > 0, lb = Ceiling[(lb*n1)/k1]; t1--; n1++; k1++]; lb];
Table[schoenheim[n, 4, 2], {n, 4, 100}] (* Jean-François Alcover, Jan 26 2019, from PARI *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed