cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A065349 Positions of zeros in A065346.

This page as a plain text file.
%I A065349 #17 Dec 12 2024 14:54:18
%S A065349 19,41,42,43,49,50,53,54,55,58,67,71,74,75,95,97,98,99,102,103,123,
%T A065349 135,138,139,145,149,153,154,155,159,163,165,166,167,168,169,170,173,
%U A065349 174,175,178,179,180,183,184,185,191,193,194,195,197,198,199,200,201,202
%N A065349 Positions of zeros in A065346.
%H A065349 Harry J. Smith, <a href="/A065349/b065349.txt">Table of n, a(n) for n = 1..1000</a>
%H A065349 C. Pomerance, <a href="https://math.dartmouth.edu/~carlp/catalan5.pdf">Divisors of the middle binomial coefficient</a>, Amer. Math. Monthly, 112 (2015), 636-644.
%t A065349 ris = {}; Do[If[Mod[Binomial[2 n, n], (n + 1) (n + 2) (n + 3) (n + 4)] == 0, AppendTo[ris, n]], {n, 250}]; ris (* _Bruno Berselli_, Jan 06 2014 *)
%o A065349 (PARI) isok(k) = { binomial(2*k, k) % ((k + 1)*(k + 2)*(k + 3)*(k + 4)) == 0 } \\ _Harry J. Smith_, Oct 17 2009
%Y A065349 Cf. A000108, A065344, A065345, A065346, A065347, A065348.
%K A065349 nonn
%O A065349 1,1
%A A065349 _Labos Elemer_, Oct 30 2001