A375083 Numbers k such that k is not the first multiple of k that appears in Pascal's triangle (read by rows), i.e., such that A375082(k) > 1.

12, 14, 18, 22, 24, 26, 30, 33, 34, 38, 39, 40, 42, 44, 46, 48, 50, 51, 52, 54, 57, 58, 60, 62, 63, 65, 66, 68, 69, 72, 74, 75, 76, 77, 80, 82, 85, 86, 87, 88, 90, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 112, 114, 115, 116, 117, 118

Offset: 1

Author

Pontus von Brömssen, Jul 29 2024

Keywords

• nonn

Crossrefs

Cf. A007318, A349958, A374959, A375082.

Programs

PARI

isok(k) = for (i=1, k-1, for (j=1, i, my(b=binomial(i, j)); if (((b % k) == 0), return(b!=k)););); \\ Michel Marcus, Jul 30 2024

Python

from itertools import count, islice
from math import comb
def A375083_gen(): # generator of terms
    return filter(lambda n:next(c for c in (comb(j,k) for j in range(n+1) for k in range(j+1)) if not c%n)>n, count(1))
A375083_list = list(islice(A375083_gen(),20)) # Chai Wah Wu, Jul 30 2024