A188660 -id:A188660 - cp's OEIS frontend

A188630 Triangular numbers that are the product of two triangular numbers greater than 1.

36, 45, 210, 630, 780, 990, 1540, 2850, 3570, 4095, 4851, 8778, 11781, 15400, 17955, 19110, 21528, 25200, 26565, 26796, 33930, 37128, 40755, 43956, 61425, 61776, 70125, 79800, 105570, 113050, 122265, 145530, 176715, 189420, 192510, 246753, 270480, 303810, 349866, 437580, 500500, 526851

Offset: 1

T. D. Noe, Apr 06 2011

nonn

For squares, it is a simple matter to find squares that are the product of squares greater than 1. Is there a simple procedure for triangular numbers? That is, given n, is it easy to determine whether T(n) is the product of T(i) * T(j) for some i,j > 1?
Breiteig mentions this problem, but does not solve it. The problem can be extended to any polygonal number; for example, when is a pentagonal number the product of two pentagonal numbers? See A188660 and A188663 for the oblong and pentagonal cases.
Sequence A001571 gives the indices of triangular numbers that are 3 times another triangular number. For example, A001571(4) is 132; T(132) is 8778, which equals 3*T(76). Note that A061278 is the companion sequence, whose 4th term is 76. As with the oblong numbers covered by Breiteig, the triangular numbers in this sequence appear to satisfy linear recursions.

			210 = T(20) = 10 * 21 = T(4) * T(6).

Donovan Johnson, Table of n, a(n) for n = 1..4082
Trygve Breiteig, When is the product of two oblong numbers another oblong?, Math. Mag. 73 (2000), 120-129.

Cf. A000217 (triangular numbers), A085780 (products of two triangular numbers), A140089 (products of two triangular numbers > 1).
Subsequence of A068143 (more than 2 factors allowed).
Cf. A001571, A061278, A188660, A188663.
See also A379609.

A188630 := proc(limit) local t,E,n,k,c,b,ist; E:=NULL;
t := proc(n) option remember; iquo(n*(n+1), 2) end;
ist := proc(n) option remember; n = t(floor(sqrt(2*n))) end;
for n from 2 do
    c := t(n); if c > limit then break fi;
    for k from 2 do
        b := c*t(k); if b > limit then break fi;
        if ist(b) then E := E, b fi;
od od; sort({E}) end:
A188630(200000); # Peter Luschny, Dec 21 2017

TriangularQ[n_] := IntegerQ[Sqrt[1 + 8 n]]; TriIndex[n_] := Floor[(-1 + Sqrt[1 + 8*n])/2]; lim = 10^6; nMax = TriIndex[lim/3]; tri = Table[n (n + 1)/2, {n, 2, nMax}]; Union[Reap[Do[num = tri[[i]]*tri[[j]]; If[TriangularQ[num], Sow[num]], {i, TriIndex[Sqrt[lim]]}, {j, i, TriIndex[lim/tri[[i]]] - 1}]][[2, 1]]]
Module[{upto=530000,maxr},maxr=Ceiling[(Sqrt[1+8*Ceiling[upto/3]]-1)/2]; Union[Select[Times@@@Tuples[Rest[Accumulate[Range[maxr]]],2], IntegerQ[ Sqrt[1+8#]]&&#<=upto&]]] (* Harvey P. Dale, Jun 12 2012 *)

A188663 Pentagonal numbers that are the product of two pentagonal numbers greater than 1.

Original entry on oeis.org

10045, 11310, 52360, 230300, 341055, 4048352, 6192520, 16008300, 18573282, 21430710, 44175780, 49452975, 75377337, 89579112, 174695500, 201243042, 212087876, 616116800, 755319180, 1369585525, 1557466482, 1586309340, 1625178126, 1674425676, 1744607172, 1857169860, 1868270250, 1985347551

Offset: 1

T. D. Noe, Apr 07 2011

nonn

See A188630 for the triangular case and A188660 for the oblong case.

			11310 = 5 * 2262; that is, pen(87) = pen(2) * pen(39).

Donovan Johnson, Table of n, a(n) for n = 1..361
Trygve Breiteig, When is the product of two oblong numbers another oblong?, Math. Mag. 73 (2000), 120-129.

Cf. A000326 (pentagonal numbers).

PentagonalQ[n_] := IntegerQ[(1 + Sqrt[1 + 24*n])/6]; PenIndex[n_] := Floor[(1 + Sqrt[1 + 24*n])/6]; lim = 10^10; nMax = PenIndex[lim/5]; pen = Table[n (3 n - 1)/2, {n, 2, nMax}]; Union[Reap[Do[num = pen[[i]]*pen[[j]]; If[PentagonalQ[num], Sow[num]], {i, PenIndex[Sqrt[lim]]}, {j, i, PenIndex[lim/pen[[i]]] - 1}]][[2, 1]]]

A374374 Oblong numbers that are products of smaller oblong numbers.

Original entry on oeis.org

12, 72, 240, 420, 600, 1056, 1260, 2352, 4032, 6480, 7140, 9120, 9900, 10920, 14280, 14520, 18360, 20592, 20880, 28392, 38220, 46872, 50400, 65280, 78120, 82656, 83232, 104652, 123552, 129960, 147840, 159600, 194040, 233772, 245520, 262656, 278256, 279312

Offset: 1

Pontus von Brömssen, Jul 07 2024

nonn

The oblong number (k^2+2*k)*(k^2+2*k+1) = A047928(k+2) is a term for all k >= 1, because it is the product of the oblong numbers k*(k+1) and (k+1)*(k+2).

			72 is a term because 72 = 8*9 = 6*12 = (2*3)*(3*4).
1056 is a term because 1056 = 32*33 = 2*2*2*132 = (1*2)*(1*2)*(1*2)*(11*12). (This is the first term that requires more than two factors.)

A188660 is a subsequence (only 2 factors allowed).

Cf. A002378, A047928, A068143, A374375.

cp's OEIS Frontend

A188630 Triangular numbers that are the product of two triangular numbers greater than 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A188663 Pentagonal numbers that are the product of two pentagonal numbers greater than 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A374374 Oblong numbers that are products of smaller oblong numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs