OFFSET
1,1
COMMENTS
a(n) = A051283(n) - 1 (conjectured). - Ralf Stephan, Feb 20 2004
MATHEMATICA
Select[Range[500], GCD@@Table[Binomial[k*#, # ], {k, 2, #+1}]==1&]
PROG
(Haskell)
a080170 n = a080170_list !! (n-1)
a080170_list = filter f [1..] where
f x = foldl1 gcd (map (flip a007318' x) [2*x, 3*x .. x*(x+1)]) == 1
-- Reinhard Zumkeller, May 30 2013
(PARI) isok(k) = gcd(vector(k, i, binomial(k+i*k, k))) == 1; \\ Jinyuan Wang, Feb 28 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 31 2003
STATUS
approved