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.

A168100 a(n) = number of natural numbers m such that n - 10 <= m <= n + 10.

This page as a plain text file.
%I A168100 #16 Jun 29 2023 12:55:17
%S A168100 10,11,12,13,14,15,16,17,18,19,20,21,21,21,21,21,21,21,21,21,21,21,21,
%T A168100 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,
%U A168100 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21
%N A168100 a(n) = number of natural numbers m such that n - 10 <= m <= n + 10.
%C A168100 Generalization: If a(n,k) = number of natural numbers m such that n - k <= m <= n + k (k >= 1) then a(n,k) = a(n-1,k) + 1 = n + k for 0 <= n <= k, a(n,k) = a(n-1,k) = 2k + 1 for n >= k + 1 (see, e.g., A158799). a(n) = 10 + n for 0 <= n <= 10, a(n) = 21 for n >= 11.
%H A168100 <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%F A168100 G.f.: (10 - 9*x - x^12)/(1 - x)^2. - _G. C. Greubel_, Jul 12 2016
%t A168100 CoefficientList[Series[(10 - 9*x - x^12)/(1 - x)^2, {x, 0, 25}], x] (* _G. C. Greubel_, Jul 12 2016 *)
%t A168100 Table[Count[Range[n-10,n+10],_?Positive],{n,0,80}] (* or *) PadRight[ {10,11,12,13,14,15,16,17,18,19,20},120,{21}] (* _Harvey P. Dale_, Jan 09 2019 *)
%K A168100 nonn
%O A168100 0,1
%A A168100 _Jaroslav Krizek_, Nov 18 2009