A336626
Triangular numbers that are eight times another triangular number.
Original entry on oeis.org
0, 120, 528, 139128, 609960, 160554240, 703893960, 185279454480, 812293020528, 213812329916328, 937385441796000, 246739243443988680, 1081741987539564120, 284736873122033021040, 1248329316235215199128, 328586104843582662292128, 1440570949193450800230240, 379188080252621270252095320
Offset: 1
a(2) = 120 is a term because it is triangular and 120/8 = 15 is also triangular.
a(3) = 1154*a(1) - a(-1) + 648 = 0 - 120 + 648 = 528;
a(4) = 1154*a(2) - a(0) + 648 = 1154*120 - 0 + 648 = 139128, etc.
.
From _Peter Luschny_, Oct 19 2020: (Start)
Related sequences in context, as computed by the Julia function:
n [A336623, A336624, A336625, A336626 ]
[0] [0, 0, 0, 0 ]
[1] [5, 15, 15, 120 ]
[2] [11, 66, 32, 528 ]
[3] [186, 17391, 527, 139128 ]
[4] [390, 76245, 1104, 609960 ]
[5] [6335, 20069280, 17919, 160554240 ]
[6] [13265, 87986745, 37520, 703893960 ]
[7] [215220, 23159931810, 608735, 185279454480 ]
[8] [450636, 101536627566, 1274592, 812293020528 ]
[9] [7311161, 26726541239541, 20679087, 213812329916328] (End)
- Vladimir Pletser, Table of n, a(n) for n = 1..653
- Vladimir Pletser, Recurrent Relations for Multiple of Triangular Numbers being Triangular Numbers, arXiv:2101.00998 [math.NT], 2021.
- Vladimir Pletser, Closed Form Equations for Triangular Numbers Multiple of Other Triangular Numbers, arXiv:2102.12392 [math.GM], 2021.
- Vladimir Pletser, Triangular Numbers Multiple of Triangular Numbers and Solutions of Pell Equations, arXiv:2102.13494 [math.NT], 2021.
- Vladimir Pletser, Using Pell equation solutions to find all triangular numbers multiple of other triangular numbers, 2022.
- V. Pletser, Recurrent relations for triangular multiples of other triangular numbers, Indian J. Pure Appl. Math. 53 (2022) 782-791
- Index entries for linear recurrences with constant coefficients, signature (1,1154,-1154,-1,1).
Cf.
A053141,
A001652,
A075528,
A029549,
A061278,
A001571,
A076139,
A076140,
A077259,
A077260,
A077261,
A077262,
A077288,
A077289,
A077290,
A077291,
A077398,
A077399,
A077400,
A077401.
-
function omnibus()
println("[A336623, A336624, A336625, A336626]")
println([0, 0, 0, 0])
t, h = 1, 1
for n in 1:999999999
d, r = divrem(t, 8)
if r == 0
d2 = 2*d
s = isqrt(d2)
d2 == s * (s + 1) && println([s, d, n, t])
end
t, h = t + h + 1, h + 1
end
end
omnibus() # Peter Luschny, Oct 19 2020
-
f := gfun:-rectoproc({a(n) = 1154*a(n - 2) - a(n - 4) + 648, a(2) = 120, a(1) = 0, a(0) = 0, a(-1) = 120}, a(n), remember); map(f, [$ (1 .. 1000)])[]; #
-
LinearRecurrence[{1, 1154, -1154, -1, 1}, {0, 120, 528, 139128, 609960}, 18]
A221075
Simple continued fraction expansion of an infinite product.
Original entry on oeis.org
2, 12, 1, 24, 1, 192, 1, 360, 1, 2700, 1, 5040, 1, 37632, 1, 70224, 1, 524172, 1, 978120, 1, 7300800, 1, 13623480, 1, 101687052, 1, 189750624, 1, 1416317952, 1, 2642885280, 1, 19726764300, 1, 36810643320, 1
Offset: 0
Product {n >= 0} {1 - 2*(2 - sqrt(3))^(4*n+3)}/{1 - 2*(2 - sqrt(3))^(4*n+1)} = 2.07715 13807 08976 70415 ...
= 2 + 1/(12 + 1/(1 + 1/(24 + 1/(1 + 1/(192 + 1/(1 + 1/(360 + ...))))))).
Since (2 - sqrt(3))^3 = 26 - 15*sqrt(3) we have the following simple continued fraction expansion:
product {n >= 0} {1 - 2*(26 - 15*sqrt(3))^(4*n+3)}/{1 - 2*(26 - 15*sqrt(3))^(4*n+1)} = 1.04000 05921 62729 43797 ... = 1 + 1/(24 + 1/(1 + 1/(2700 + 1/(1 + 1/(70224 + 1/(1 + 1/(7300800 + ...))))))).
- P. Bala, Some simple continued fraction expansions for an infinite product, Part 1
- Index entries for linear recurrences with constant coefficients, signature (0,1,0,14,0,-14,0,-1,0,1).
Cf.
A001353,
A007654,
A045899,
A076139,
A076140,
A098301,
A123480,
A174500,
A217855,
A221073 (m = 2),
A221074 (m = 3),
A221076 (m = 5).
A014979
Numbers that are both triangular and pentagonal.
Original entry on oeis.org
0, 1, 210, 40755, 7906276, 1533776805, 297544793910, 57722156241751, 11197800766105800, 2172315626468283465, 421418033734080886426, 81752926228785223683195, 15859646270350599313653420
Offset: 1
Glenn Johnston (glennj(AT)sonic.net)
G.f. = x^2 + 210*x^3 + 40755*x^4 + 7906276*x^5 + 1533776805*x^6 + ...
a(4) = 40755 which is 285*(285-1)/2 = 165*(3*165-1)/2.
- J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 210, p. 61, Ellipses, Paris 2008.
- L. E. Dickson, History of the Theory of Numbers. Carnegie Institute Public. 256, Washington, DC, Vol. 1, 1919; Vol. 2, 1920; Vol. 3, 1923, see vol. 2, p. 22.
- C. Gill, solution to question no. 8, Mathematical Miscellany, 1 (1836), pp. 220-225, at p. 223.
- J. C. Su, On some properties of two simultaneous polygonal sequences, JIS 10 (2007) 07.10.4, example 4.2.
- Eric Weisstein's World of Mathematics, Pentagonal Triangular Number.
- Index entries for linear recurrences with constant coefficients, signature (195,-195,1).
-
a[ n_] := ChebyshevU[ 2 n - 3, 7] / 14 + ChebyshevT[ 2 n - 3, 7] / 84 - 1/12; (* Michael Somos, Feb 24 2015 *)
LinearRecurrence[{195,-195,1},{0,1,210},20] (* Harvey P. Dale, May 19 2017 *)
-
{a(n) = polchebyshev( 2*n - 3, 2, 7) / 14 + polchebyshev( 2*n - 3, 1, 7) / 84 - 1 / 12}; /* Michael Somos, Jun 16 2011 */
A341895
Indices of triangular numbers that are ten times other triangular numbers.
Original entry on oeis.org
0, 4, 20, 39, 175, 779, 1500, 6664, 29600, 56979, 253075, 1124039, 2163720, 9610204, 42683900, 82164399, 364934695, 1620864179, 3120083460, 13857908224, 61550154920, 118481007099, 526235577835, 2337285022799, 4499158186320, 19983094049524, 88755280711460, 170849530073079, 758831338304095, 3370363382012699
Offset: 1
a(2) = 4 is a term because its triangular number, T(a(2)) = 4*5 / 2 = 10 is ten times a triangular number.
a(4) = 38*a(1) - a(-2) + 18 = 38*0 - (-21) + 18 = 39, etc.
Cf.
A336623,
A336624,
A336626,
A336625,
A053141,
A001652,
A075528,
A029549,
A061278,
A001571,
A076139,
A076140,
A077259,
A077262,
A077260,
A077261,
A077288,
A077291,
A077289,
A077290,
A077398,
A077401,
A077399,
A077400,
A000217.
-
f := gfun:-rectoproc({a(-2) = -21, a(-1) = -5, a(0) = -1, a(1) = 0, a(2) = 4, a(3) = 20, a(n) = 38*a(n-3)-a(n-6)+18}, a(n), remember); map(f, [`$`(0 .. 1000)]) ; #
-
Rest@ CoefficientList[Series[x^2*(4 + 16*x + 19*x^2 - 16*x^3 - 4*x^4 - x^5)/(1 - x - 38*x^3 + 38*x^4 + x^6 - x^7), {x, 0, 30}], x] (* Michael De Vlieger, May 19 2022 *)
A068085
Numbers k such that k and 10*k are both triangular numbers.
Original entry on oeis.org
0, 1, 21, 78, 1540, 30381, 112575, 2220778, 43809480, 162333171, 3202360435, 63173239878, 234084320106, 4617801526591, 91095768094695, 337549427259780, 6658866598983886, 131360034419310411, 486746040024282753, 9602081017933237120, 189421078536877518066, 701887452165588470145
Offset: 1
21 and 210 are both triangular numbers.
- Georg Fischer, Table of n, a(n) for n = 1..1000
- Vladimir Pletser, Using Pell equation solutions to find all triangular numbers multiple of other triangular numbers, 2022.
- Index entries for linear recurrences with constant coefficients, signature (1,0,1442,-1442,0,-1,1).
-
f := gfun:-rectoproc({a(-3) = 21, a(-2) = 1, a(-1) = 0, a(0) = 0, a(1) = 1, a(2) = 21, a(n) = 1442*a(n-3)-a(n-6)+99}, a(n), remember); map(f, [`$`(0 .. 1000)])[] ; # Vladimir Pletser, Feb 26 2021
-
a[0]=0; a[1]=1; a[2]=21; a[n_] := a[n]=(99+1442a[n-3]+57Sqrt[(1+8a[n-3])(1+80a[n-3])])/2
Original entry on oeis.org
1, -3, 13, -48, 181, -675, 2521, -9408, 35113, -131043, 489061, -1825200, 6811741, -25421763, 94875313, -354079488, 1321442641, -4931691075, 18405321661, -68689595568, 256353060613, -956722646883, 3570537526921, -13325427460800, 49731172316281
Offset: 0
-
/* By definition: */
m:=15; R:=PowerSeriesRing(Integers(), m);
A001570:=Coefficients(R!((1-x)/(1-14*x+x^2)));
A007654:=Coefficients(R!(-3*x^2*(1+x)/(-1+x)/(1-14*x+x^2)));
&cat[[A001570[i],-A007654[i]]: i in [1..m-2]]; // Bruno Berselli, Feb 05 2013
-
seriestolist(series((x^2+x+1)/((1-x)*(x+1)*(x^2+4*x+1)), x=0,25));
-
LinearRecurrence[{-4,0,4,1},{1,-3,13,-48},30] (* Harvey P. Dale, Jun 15 2018 *)
A341893
Indices of triangular numbers that are one-tenth of other triangular numbers.
Original entry on oeis.org
0, 1, 6, 12, 55, 246, 474, 2107, 9360, 18018, 80029, 355452, 684228, 3039013, 13497834, 25982664, 115402483, 512562258, 986657022, 4382255359, 19463867988, 37466984190, 166410301177, 739114421304, 1422758742216, 6319209189385, 28066884141582, 54027365220036, 239963538895471, 1065802482958830, 2051617119619170
Offset: 1
a(4) = 12 is a term because its triangular number, (12*13) / 2 = 78 is one-tenth of 780, the triangular number of 39.
a(4) = 38 a(1) - a(-2) +18 = 0 - 6 +18 = 12 ;
a(5) = 38 a(2) - a(-1) + 18 = 38*1 - 1 +18 = 55.
- Vladimir Pletser, Table of n, a(n) for n = 1..1000
- Vladimir Pletser, Using Pell equation solutions to find all triangular numbers multiple of other triangular numbers, 2022.
- V. Pletser, Recurrent relations for triangular multiples of other triangular numbers, Indian J. Pure Appl. Math. 53 (2022) 782-791
- Index entries for linear recurrences with constant coefficients, signature (1,38,-38,-1,1).
Cf.
A336623,
A336624,
A336626,
A336625,
A053141,
A001652,
A075528,
A029549,
A061278,
A001571,
A076139,
A076140,
A077259,
A077262,
A077260,
A077261,
A077288,
A077291,
A077289,
A077290,
A077398,
A077401,
A077399,
A077400,
A000217.
-
f := gfun:-rectoproc({a(-3) = 6, a(-2) = 1, a(-1) = 0, a(0) = 0, a(1) = 1, a(2) = 6, a(n) = 38*a(n-3)-a(n-6)+18}, a(n), remember); map(f, [`$`(0 .. 1000)])[] ;
-
Rest@ CoefficientList[Series[(x^2*(1 + 5*x + 6*x^2 + 5*x^3 + x^4))/(1 - x - 38*x^3 + 38*x^4 + x^6 - x^7), {x, 0, 31}], x] (* Michael De Vlieger, May 19 2022 *)
A108281
Numbers that are both triangular and pentagonal of the second kind.
Original entry on oeis.org
0, 15, 2926, 567645, 110120220, 21362755051, 4144264359690, 803965923024825, 155965244802456376, 30256453525753512135, 5869596018751378897830, 1138671371184241752666901, 220896376413724148638480980
Offset: 1
15*x^2 + 2926*x^3 + 567645*x^4 + 110120220*x^5 + 21362755051*x^6 + ...
a(4) = 567645 which is 1065*(1065-1)/2 = 615*(3*615+1)/2.
- L. E. Dickson, History of the Theory of Numbers. Carnegie Institute Public. 256, Washington, DC, Vol. 1, 1919; Vol. 2, 1920; Vol. 3, 1923, see vol. 2, p. 22.
-
{a(n) = polchebyshev( 2*n - 2, 2, 7) / 14 + polchebyshev( 2*n - 2, 1, 7) / 84 - 1 / 12} /* Michael Somos, Jun 16 2011 */
A077829
Expansion of 1/(1-3*x-3*x^2-2*x^3).
Original entry on oeis.org
1, 3, 12, 47, 183, 714, 2785, 10863, 42372, 165275, 644667, 2514570, 9808261, 38257827, 149227404, 582072215, 2270414511, 8855914986, 34543132921, 134737972743, 525555146964, 2049965624963, 7996038261267, 31189121952618, 121655411891581, 474525678055131
Offset: 0
Partial sums of S(n, x), for x=1...14,
A021823,
A000217,
A027941,
A061278,
A089817,
A053142,
A092521,
A076765,
A092420,
A097784,
A097826-
A097828,
A076139.
-
CoefficientList[Series[1/(1 - 3*x - 3*x^2 - 2*x^3), {x, 0, 30}], x] (* Wesley Ivan Hurt, Jan 20 2024 *)
LinearRecurrence[{3,3,2},{1,3,12},30] (* Harvey P. Dale, Dec 20 2024 *)
-
Vec(1/(1-3*x-3*x^2-2*x^3)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012
A077831
Expansion of 1/(1-3*x-2*x^2-2*x^3).
Original entry on oeis.org
1, 3, 11, 41, 151, 557, 2055, 7581, 27967, 103173, 380615, 1404125, 5179951, 19109333, 70496151, 260067021, 959412031, 3539362437, 13057045415, 48168685181, 177698871247, 655548074933, 2418379337655, 8921631905325, 32912750541151, 121418274109413
Offset: 0
Partial sums of S(n, x), for x=1...16,
A021823,
A000217,
A027941,
A061278,
A089817,
A053142,
A092521,
A076765,
A092420,
A097784,
A097826-
A097828,
A076139,
A097829,
A097830.
-
CoefficientList[Series[1/(1-3x-2x^2-2x^3),{x,0,30}],x] (* or *) LinearRecurrence[{3,2,2},{1,3,11},30] (* Harvey P. Dale, Feb 28 2025 *)
-
Vec(1/(1-3*x-2*x^2-2*x^3)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012
Comments