A343811 Triangular numbers k such that every permutation of the digits of k is a triangular number.

0, 1, 3, 6, 10, 55, 66, 666

Offset

1,3

Comments

I assume this sequence is finite.

From Jon E. Schoenfield, Mar 05 2022: (Start)

If k is a term of this sequence and is not a repdigit, then at least one of its permutations (a triangular number, call it k1) will have a digit d0 in its ones place and a digit d1 != d0 in its tens place, and the number that results from reversing those last two digits will be a triangular number k2 = k1 + 9*(d0 - d1), so the two distinct triangular numbers k2 and k1 will differ by no more than 9*(9-0) = 81. But the j-th triangular number T(j) differs from the nearest other triangular number by T(j) - T(j-1) = j, so if two distinct triangular numbers T(k1) > T(k2) differ by no more than 81, then k1 <= 81. No triangular numbers <= T(81) = 3321 are terms that exceed 666, so if there exists any term > 666, it is a repdigit triangular number.

However, Ballew and Weger proved (see A045914) that the only repdigit triangular numbers are 0, 1, 3, 6, 55, 66, and 666. Thus, 666 is the last term of this sequence. (End)

Links

Table of n, a(n) for n=1..8.

Example

10 = 4*5/2, 01 = 1*2/2.

Mathematica

triQ[n_] := IntegerQ @ Sqrt[8*n + 1]; Select[Range[0, 1000], AllTrue[Permutations[ IntegerDigits[#] ], triQ[FromDigits[#1]] &] &] (* Amiram Eldar, Apr 30 2021 *)
pdtQ[n_]:=AllTrue[FromDigits/@Permutations[IntegerDigits[n]], OddQ[ Sqrt[ 8#+1]]&]; Select[Accumulate[Range[0, 5000]], pdtQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 04 2021 *)

Crossrefs

Cf. A000217, A003459, A045914, A077671.

Sequence in context: A068071 A067269 A352057 * A071299 A338767 A351131

Adjacent sequences: A343808 A343809 A343810 * A343812 A343813 A343814

Keyword

nonn,base,fini,full

Author

Ctibor O. Zizka, Apr 30 2021

Status

approved