OFFSET
1,2
COMMENTS
A014847 is a subsequence.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
triangular(6)=21, A000984(6)=924. Because 21 divides 924, 6 is in the sequence.
MATHEMATICA
Select[Range[480], Mod[Binomial[2 #, #], # (# + 1)/2] == 0 &] (* T. D. Noe, Oct 16 2013 *)
PROG
(Python)
from sympy import binomial
for n in range(1, 444):
CBC = binomial(2 * n, n)
if not CBC % binomial(n + 1, 2):
print(n, end=", ")
(PARI) is(n) = { my(f = factor(binomial(n+1, 2))); for(i = 1, #f~, if(val(2*n, f[i, 1]) - 2*val(n, f[i, 1]) < f[i, 2], return(0) ) ); 1 }
val(n, p) = my(r=0); while(n, r+=n\=p); r \\ David A. Corneth, Apr 03 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alex Ratushnyak, Oct 14 2013
STATUS
approved