login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A128862 Numbers simultaneously triangular and centered triangular. 4

%I #43 Jul 19 2023 15:15:58

%S 1,10,136,1891,26335,366796,5108806,71156485,991081981,13803991246,

%T 192264795460,2677903145191,37298379237211,519499406175760,

%U 7235693307223426,100780206894952201,1403687203222107385,19550840638214551186,272308081731781609216

%N Numbers simultaneously triangular and centered triangular.

%C A129803 is an essentially identical sequence. - _R. J. Mathar_, Jun 13 2008

%H Michael De Vlieger, <a href="/A128862/b128862.txt">Table of n, a(n) for n = 1..875</a>

%H F. Javier de Vega, <a href="https://doi.org/10.17654/0972555523015">On the parabolic partitions of a number</a>, J. Alg., Num. Theor., and Appl. (2023) Vol. 61, No. 2, 135-169.

%H J. Sadek and R. Euler, <a href="http://arxiv.org/abs/1003.2375">A Formula For All K-Gonal Numbers that Are Centered</a>, 2010, arXiv:1003.2375 [math.NT], 2010.

%H S. C. Schlicker, <a href="http://www.jstor.org/stable/10.4169/math.mag.84.5.339">Numbers Simultaneously Polygonal and Centered Polygonal</a>, Mathematics Magazine, Vol. 84, No. 5, December 2011, pp. 339-350.

%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (15,-15,1).

%F Define x(n) and y(n) by (3+sqrt(3))*(2+sqrt(3))^n = x(n) + y(n)*sqrt(3); let s(n) = (y(n)+1)/2; then a(n) = (1/2)*(2+3*(s(n)^2-s(n))).

%F a(n) = (3*A001570(n) + 1)/4. - _Ralf Stephan_, May 20 2007

%F From _Richard Choulet_, Oct 01 2007: (Start)

%F a(n+2) = 14*a(n+1) - a(n) - 3.

%F a(n+1) = 7*a(n) - 3/2 + (1/2)*sqrt(192*a(n)^2 - 96*a(n) - 15).

%F G.f.: x*(1-5*x+x^2)/((1-x)*(1-14*x+x^2)). (End)

%e a(2)=10 because 10 is the third triangular number and the fourth centered triangular number.

%p CP := n -> 1+1/2*3*(n^2-n): N:=10: u:=2: v:=1: x:=3: y:=1: k_pcp:=[1]: for i from 1 to N do tempx:=x; tempy:=y; x:=tempx*u+3*tempy*v: y:=tempx*v+tempy*u: s:=(y+1)/2: k_pcp:=[op(k_pcp),CP(s)]: end do: k_pcp;

%t Rest@ CoefficientList[Series[x (1 - 5 x + x^2)/((1 - x) (1 - 14 x + x^2)), {x, 0, 19}], x] (* _Michael De Vlieger_, Jul 19 2023 *)

%Y Intersection of A000217 and A005448.

%Y Cf. A001570, A129803.

%K easy,nonn

%O 1,2

%A _Steven Schlicker_, Apr 24 2007

%E Offset set to 1 by _R. J. Mathar_, Apr 28 2020

%E More terms from _Michel Marcus_, Jan 20 2021

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 23 10:04 EDT 2024. Contains 373629 sequences. (Running on oeis4.)