A077288
First member of the Diophantine pair (m,k) that satisfies 6(m^2 + m) = k^2 + k: a(n) = m.
Original entry on oeis.org
0, 1, 3, 14, 34, 143, 341, 1420, 3380, 14061, 33463, 139194, 331254, 1377883, 3279081, 13639640, 32459560, 135018521, 321316523, 1336545574, 3180705674, 13230437223, 31485740221, 130967826660, 311676696540, 1296447829381, 3085281225183, 12833510467154
Offset: 0
Bruce Corrigan (scentman(AT)myfamily.com), Nov 03 2002
a(3) = 2*3 - 1 + 9 = 14, a(4) = 2*14 - 3 + 9 = 34, etc.
G.f. = x + 3*x^2 + 14*x^3 + 34*x^4 + 143*x^5 + 341*x^6 + 1420*x^7 + 3380*x^8 + ... - _Michael Somos_, Jul 15 2018
- G. C. Greubel, Table of n, a(n) for n = 0..1000
- Vladimir Pletser, Recurrent Relations for Multiple of Triangular Numbers being Triangular Numbers, arXiv:2101.00998 [math.NT], 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.
- Index entries for linear recurrences with constant coefficients, signature (1,10,-10,-1,1).
-
m:=30; R:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!(x*(1+x)^2/((1-x)*(1-10*x^2+x^4)))); // G. C. Greubel, Jul 15 2018
-
f := gfun:-rectoproc({a(-2) = 1, a(-1) = 0, a(0) = 0, a(1) = 1, a(n) = 10*a(n - 2) - a(n - 4) + 4}, a(n), remember); map(f, [$ (0 .. 100)]); - Vladimir Pletser, Jul 24 2020
-
CoefficientList[Series[x*(1 + x)^2/((1 - x)*(1 - 10 x^2 + x^4)), {x, 0, 40}],x] (* T. D. Noe, Jun 04 2012 *)
LinearRecurrence[{1, 10, -10, -1, 1}, {0, 1, 3, 14, 34}, 50] (* G. C. Greubel, Jul 15 2018 *)
a[ n_] := With[{m = Max[n, -1 - n]}, SeriesCoefficient[ x (1 + x)^2 / ((1 - x) (1 - 10 x^2 + x^4)), {x, 0, m}]]; (* Michael Somos, Jul 15 2018 *)
-
my(x='x+O('x^30)); concat([0], Vec(x*(1+x)^2/((1-x)*(1-10*x^2+x^4)))) \\ G. C. Greubel, Jul 15 2018
A077291
Second member of Diophantine pair (m,k) that satisfies 6*(m^2 + m) = k^2 + k: a(n) = k.
Original entry on oeis.org
0, 3, 8, 35, 84, 351, 836, 3479, 8280, 34443, 81968, 340955, 811404, 3375111, 8032076, 33410159, 79509360, 330726483, 787061528, 3273854675, 7791105924, 32407820271, 77123997716, 320804348039, 763448871240, 3175635660123, 7557364714688, 31435552253195
Offset: 0
Bruce Corrigan (scentman(AT)myfamily.com), Nov 03 2002
b(3)=630 so a(3) = (-1 + sqrt(8*630 + 1))/2 = (-1 + sqrt(5041))/2 = (71 - 1)/2 = 35.
- Colin Barker, Table of n, a(n) for n = 0..1000
- Vladimir Pletser, Recurrent Relations for Multiple of Triangular Numbers being Triangular Numbers, arXiv:2101.00998 [math.NT], 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.
- Index entries for linear recurrences with constant coefficients, signature (1,10,-10,-1,1).
-
f := gfun:-rectoproc({a(-2) = -4, a(-1) = -1, a(0) = 0, a(1) = 3, a(n) = 10*a(n - 2) - a(n - 4) + 4}, a(n), remember); map(f, [$ (0 .. 40)])[]; # Vladimir Pletser, Jul 26 2020
-
LinearRecurrence[{1,10,-10,-1,1},{0,3,8,35,84},30] (* Harvey P. Dale, Oct 11 2019 *)
-
concat(0, Vec(x*(x^3+3*x^2-5*x-3)/((x-1)*(x^4-10*x^2+1)) + O(x^100))) \\ Colin Barker, May 15 2015
A077290
Triangular numbers that are 6 times other triangular numbers.
Original entry on oeis.org
0, 6, 36, 630, 3570, 61776, 349866, 6053460, 34283340, 593177346, 3359417496, 58125326490, 329188631310, 5695688818716, 32257126450926, 558119378907720, 3160869203559480, 54690003444137886, 309732924822378156, 5359062218146605150, 30350665763389499850
Offset: 0
Bruce Corrigan (scentman(AT)myfamily.com), Nov 03 2002
The k-th triangular number is T(k) = k*(k+1)/2, so T(35)/T(14) = (35*36/2)/(14*15/2) = 630/105 = 6, so T(35)=630 is a term. - _Jon E. Schoenfield_, Feb 20 2021
- Colin Barker, Table of n, a(n) for n = 0..1000
- Vladimir Pletser, Recurrent Relations for Multiple of Triangular Numbers being Triangular Numbers, arXiv:2101.00998 [math.NT], 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.
- Index entries for linear recurrences with constant coefficients, signature (1,98,-98,-1,1).
-
f := gfun:-rectoproc({a(-2) = 6, a(-1) = 0, a(0) = 0, a(1) = 6, a(n) = 98*a(n-2)-a(n-4)+42}, a(n), remember); map(f, [`$`(0 .. 1000)])[]; # Vladimir Pletser, Feb 20 2021
-
CoefficientList[Series[-6 x (x^2 + 5 x + 1)/((x - 1) (x^2 - 10 x + 1) (x^2 + 10 x + 1)), {x, 0, 20}], x] (* Michael De Vlieger, Apr 21 2021 *)
-
T(n)=n*(n+1)\2;
istriang(n)=issquare(8*n+1);
for(n=0,10^10, t=T(n); if ( t%6==0 && istriang(t\6), print1(t,", ") ) );
\\ Joerg Arndt, Jul 03 2013
-
concat(0, Vec(-6*x*(x^2+5*x+1) / ((x-1)*(x^2-10*x+1)*(x^2+10*x+1)) + O(x^100))) \\ Colin Barker, May 15 2015
A336624
Triangular numbers that are one-eighth of other triangular numbers; T(t) such that 8*T(t)=T(u) for some u where T(k) is the k-th triangular number.
Original entry on oeis.org
0, 15, 66, 17391, 76245, 20069280, 87986745, 23159931810, 101536627566, 26726541239541, 117173180224500, 30842405430498585, 135217748442445515, 35592109140254127630, 156041164529401899891, 41073263105447832786516, 180071368649181350028780, 47398510031577658781511915
Offset: 0
a(1)= 15 is a term because it is triangular and 8*15 = 120 is also triangular.
a(2) = 1154*a(0) - a(-2) + 81 = 0 - 15 + 81 = 66;
a(3) = 1154*a(1) - a(-1) + 81 = 1154*15 - 0 + 81 = 17391, etc.
- Vladimir Pletser, Table of n, a(n) for n = 0..650
- 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.
- Index entries for linear recurrences with constant coefficients, signature (1,1154,-1154,-1,1).
Cf.
A053141,
A001652,
A075528,
A029549,
A061278,
A001571,
A076139,
A076140,
A077259,
A077262,
A077260,
A077261,
A077288,
A077291,
A077289,
A077290,
A077398,
A077401,
A077399,
A077400.
-
f := gfun:-rectoproc({a(n) = 1154*a(n - 2) - a(n - 4) + 81, a(1) = 15, a(0) = 0, a(-1) = 0, a(-2) = 15}, a(n), remember): map(f, [$ (0 .. 40)])[]; #
-
LinearRecurrence[{1, 1154, -1154, -1, 1}, {0, 15, 66, 17391, 76245}, 18] (* Amiram Eldar, Aug 08 2020 *)
FullSimplify[Table[((Sqrt[2] + 1)^(4*n + 2)*(11 - 6*(-1)^n*Sqrt[2]) + (Sqrt[2] - 1)^(4*n + 2)*(11 + 6*(-1)^n*Sqrt[2]) - 18)/256, {n, 0, 17}]] (* Vaclav Kotesovec, Sep 08 2020 *)
Select[Accumulate[Range[0, 10^6]]/8, OddQ[Sqrt[8 # + 1]] &] (* The program generates the first 8 terms of the sequence. *) (* Harvey P. Dale, Jan 15 2024 *)
-
concat(0, Vec(3*x*(5 + 17*x + 5*x^2) / ((1 - x)*(1 - 34*x + x^2)*(1 + 34*x + x^2)) + O(x^40))) \\ Colin Barker, Aug 08 2020
A336625
Indices of triangular numbers that are eight times other triangular numbers.
Original entry on oeis.org
0, 15, 32, 527, 1104, 17919, 37520, 608735, 1274592, 20679087, 43298624, 702480239, 1470878640, 23863649055, 49966575152, 810661587647, 1697392676544, 27538630330959, 57661384427360, 935502769664975, 1958789677853712, 31779555538278207, 66541187662598864, 1079569385531794079, 2260441590850507680
Offset: 1
a(3) = 34*a(1) - a(-1) + 16 = 0 - (-16) + 16 = 32,
a(4) = 34*a(2) - a(0) + 16 = 34*15 - (-1) + 16 = 527, etc.
- Vladimir Pletser, Table of n, a(n) for n = 1..1000
- 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, 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,34,-34,-1,1).
Cf.
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(n) = 34*a(n - 2) - a(n - 4) + 16, a(2) = 15, a(1) = 0, a(0) = -1, a(-1) = -16}, a(n), remember); map(f, [$ (0 .. 1000)]); #
-
LinearRecurrence[{1, 34, -34, -1, 1}, {0, 15, 32, 527, 1104, 17919}, 29] (* Amiram Eldar, Aug 18 2020 *)
FullSimplify[Table[((Sqrt[2] + 1)^(2*n + 1) * (3 - Sqrt[2]*(-1)^n) - (Sqrt[2] - 1)^(2*n + 1) * (3 + Sqrt[2]*(-1)^n) - 2)/4, {n, 0, 20}]] (* Vaclav Kotesovec, Sep 08 2020 *)
-
concat(0, Vec(x*(15 + 17*x - 15*x^2 - x^3) / ((1 - x)*(1 - 6*x + x^2)*(1 + 6*x + x^2)) + O(x^22))) \\ Colin Barker, Aug 14 2020
A336623
First member of the Diophantine pair (m, k) that satisfies 8*(m^2 + m) = k^2 + k; a(n) = m.
Original entry on oeis.org
0, 5, 11, 186, 390, 6335, 13265, 215220, 450636, 7311161, 15308375, 248364270, 520034130, 8437074035, 17665852061, 286612152936, 600118935960, 9736376125805, 20386377970595, 330750176124450, 692536732064286, 11235769612105511, 23525862512215145, 381685416635462940
Offset: 0
a(2) = 34 a(0) - a(-2)+16=0 -5 +16 = 11 ; a(3) = 34 a(1) - a(-1)+16 = 34*5 -0 +16 = 186, etc.
- Vladimir Pletser, Table of n, a(n) for n = 0..1000
- 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.
- Index entries for linear recurrences with constant coefficients, signature (1,34,-34,-1,1).
Cf.
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(n) = 34*a(n - 2) - a(n - 4) + 16, a(1) = 5, a(0) = 0, a(-1) = 0, a(-2) = 5}, a(n), remember); map(f, [$ (0 .. 50)]); #
-
LinearRecurrence[{1, 34, -34, -1, 1}, {0, 5, 11, 186, 390}, 24] (* Amiram Eldar, Aug 08 2020 *)
FullSimplify[Table[((3*Sqrt[2] - 2*(-1)^n)*(1 + Sqrt[2])^(2*n + 1) + (3*Sqrt[2] + 2*(-1)^n)*(Sqrt[2] - 1)^(2*n + 1) - 8)/16, {n, 0, 20}]] (* Vaclav Kotesovec, Sep 08 2020 *)
-
concat(0, Vec(x*(5 + 6*x + 5*x^2) / ((1 - x)*(1 - 6*x + x^2)*(1 + 6*x + x^2)) + O(x^22))) \\ Colin Barker, Aug 08 2020
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]
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
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 *)
Showing 1-10 of 12 results.
Comments