|
%I M4112 #122 Feb 09 2023 17:57:01
%S 1,6,16,31,51,76,106,141,181,226,276,331,391,456,526,601,681,766,856,
%T 951,1051,1156,1266,1381,1501,1626,1756,1891,2031,2176,2326,2481,2641,
%U 2806,2976,3151,3331,3516,3706,3901,4101,4306,4516,4731,4951,5176,5406
%N Centered pentagonal numbers: (5n^2+5n+2)/2; crystal ball sequence for 3.3.3.4.4. planar net.
%C Equals the triangular numbers convolved with [1, 3, 1, 0, 0, 0, ...]. - _Gary W. Adamson_ and _Alexander R. Povolotsky_, May 29 2009
%C From _Ant King_, Jun 15 2012: (Start)
%C a(n) == 1 (mod 5) for all n.
%C The digital roots of the a(n) form a purely periodic palindromic 9-cycle 1, 6, 7, 4, 6, 4, 7, 6, 1.
%C The units' digits of the a(n) form a purely periodic palindromic 4-cycle 1, 6, 6, 1.
%C (End)
%C Binomial transform of (1, 5, 5, 0, 0, 0, ...) and second partial sum of (1, 4, 5, 5, 5, ...). - _Gary W. Adamson_, Sep 09 2015
%C a(n) = a(-1-n) for all n in Z. - _Michael Somos_, Jan 25 2019
%C On the plane start with a single regular pentagon, and repeat the following procedure, "For each edge of any pentagon not already connected to an existing pentagon create a mirror image such that the mirror image does not overlap with an existing pentagon." a(n) is the number of pentagons occupying the plane after n repetitions. - _Torlach Rush_, Sep 14 2022
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D B. K. Teo and N. J. A. Sloane, Magic numbers in polygonal and polyhedral clusters, Inorgan. Chem. 24 (1985), 4545-4558.
%H T. D. Noe, <a href="/A005891/b005891.txt">Table of n, a(n) for n = 0..1000</a>
%H Paul Barry, <a href="https://arxiv.org/abs/2104.01644">Centered polygon numbers, heptagons and nonagons, and the Robbins numbers</a>, arXiv:2104.01644 [math.CO], 2021.
%H Simon Plouffe, <a href="https://arxiv.org/abs/0911.4975">Approximations de séries génératrices et quelques conjectures</a>, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
%H Simon Plouffe, <a href="/A000051/a000051_2.pdf">1031 Generating Functions</a>, Appendix to Thesis, Montreal, 1992
%H Cliff Reiter, <a href="http://hdl.handle.net/10385/2864">Polygonal Numbers and Fifty One Stars</a>, Lafayette College, Easton, PA (2019).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CenteredPentagonalNumber.html">Centered Pentagonal Number.</a>
%H <a href="/index/Ce#CENTRALCUBE">Index entries for sequences related to centered polygonal numbers</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,-3,1).
%H <a href="/index/Cor#crystal_ball">Index entries for crystal ball sequences</a>
%F G.f.: (1 + 3*x + x^2)/(1 - x)^3. _Simon Plouffe_ in his 1992 dissertation
%F Narayana transform (A001263) of [1, 5, 0, 0, 0, ...]. - _Gary W. Adamson_, Dec 29 2007
%F a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3), a(0)=1, a(1)=6, a(2)=16. - _Jaume Oliver Lafont_, Dec 02 2008
%F a(n) = 5*A000217(n) + 1 = 5*T(n) + 1, for n = 0, 1, 2, 3, ... and where T(n) = n*(n+1)/2 = n-th triangular number. - _Thomas M. Green_, Nov 25 2009
%F a(n) = a(n-1) + 5*n, with a(0)=1. - _Vincenzo Librandi_, Nov 18 2010
%F a(n) = A028895(n) + 1. - _Omar E. Pol_, Oct 03 2011
%F a(n) = 2*a(n-1) - a(n-2) + 5. - _Ant King_, Jun 12 2012
%F Sum_{n>=0} 1/a(n) = 2*Pi /sqrt(15) *tanh(Pi/2*sqrt(3/5)) = 1.360613169863... - _Ant King_, Jun 15 2012
%F a(n) = A101321(5,n). - _R. J. Mathar_, Jul 28 2016
%F E.g.f.: (2 + 10*x + 5*x^2)*exp(x)/2. - _Ilya Gutkovskiy_, Jul 28 2016
%F From _Amiram Eldar_, Jun 20 2020: (Start)
%F Sum_{n>=0} a(n)/n! = 17*e/2.
%F Sum_{n>=0} (-1)^(n+1)*a(n)/n! = 3/(2*e). (End)
%e a(2)= 5*T(2) + 1 = 5*3 + 1 = 16, a(4) = 5*T(4) + 1 = 5*10 + 1 = 51. - _Thomas M. Green_, Nov 16 2009
%p A005891 := proc(n)
%p 1+5*n*(1+n)/2 ;
%p end proc:
%p seq(A005891(n),n=0..40) ; # _R. J. Mathar_, Oct 07 2021
%t FoldList[#1 + #2 &, 1, 5 Range@ 40] (* _Robert G. Wilson v_, Feb 02 2011 *)
%t LinearRecurrence[{3,-3,1},{1,6,16},50] (* _Harvey P. Dale_, Sep 08 2018 *)
%t Table[ j! Coefficient[Series[Exp[x]*(1 + 5 x^2/2)-1, {x, 0, 20}], x, j], {j, 0, 20}] (* _Nikolaos Pantelidis_, Feb 07 2023 *)
%o (PARI) a(n)=5*n*(n+1)/2+1 \\ _Charles R Greathouse IV_, Mar 22 2016
%o (Magma) [5*n*(n+1)/2 + 1: n in [0..50]]; // _G. C. Greubel_, Nov 04 2017
%Y Cf. A028895, A001844, A003215, A004068 (partial sums), A006322, A001263.
%Y Partial sums of A008706.
%Y Equals second row of A167546 divided by 2.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
%E Formula corrected and relocated by _Johannes W. Meijer_, Nov 07 2009
|
