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.

A082406 Numbers k such that k divides Sum_{j=1..k} binomial(2j,j).

This page as a plain text file.
%I A082406 #16 Feb 14 2021 13:01:22
%S A082406 1,2,5,8,11,12,17,23,29,41,47,53,59,71,83,89,101,107,113,130,131,137,
%T A082406 149,167,173,179,191,196,197,227,233,238,239,251,257,263,266,269,281,
%U A082406 293,311,317,322,347,353,359,383,389,401,419,431,443,449,461,467,479
%N A082406 Numbers k such that k divides Sum_{j=1..k} binomial(2j,j).
%H A082406 Vaclav Kotesovec, <a href="/A082406/b082406.txt">Table of n, a(n) for n = 1..4973</a>
%H A082406 Vaclav Kotesovec, <a href="/A082406/a082406.jpg">Plot of a(n)/(n*log(n)) for n = 2..10000</a>
%F A082406 Is a(n) asymptotic to c*n*log(n) with 2 < c < 2.3?
%t A082406 Select[Range[500],Divisible[Sum[Binomial[2k,k],{k,#}],#]&] (* _Harvey P. Dale_, Feb 16 2013 *)
%t A082406 A066796 = Accumulate[Table[Binomial[2*k, k], {k, 1, 1000}]]; Select[Range[Length[A066796]], Divisible[A066796[[#]], #] &] (* _Vaclav Kotesovec_, Feb 15 2019 *)
%Y A082406 Cf. A066796.
%K A082406 nonn
%O A082406 1,2
%A A082406 _Benoit Cloitre_, Apr 23 2003