A298856 Triangular numbers n for which A240542(n) = A240542(n-1).
3, 10, 21, 55, 78, 105, 136, 171, 253, 351, 406, 465, 595, 666, 741, 820, 903, 1081, 1275, 1378, 1711, 1830, 1953, 2211, 2485, 2628, 2775, 2926, 3081, 3403, 3741, 3916, 4465, 4656, 5050, 5253, 5671, 5886, 6105, 6328, 7021, 7503, 7750, 8001, 8515, 9045, 9316, 9591
Offset: 1
Keywords
Examples
3, 10 and 21 are in the sequence as the illustration of Dyck paths in sequence A237593 shows. The sequence contains triangular numbers n*(2n+1) where neither n nor 2n+1 are prime. Numbers 1275=25*51 and 2926=38*77 are examples, however, 36 = 4*9 does not belong to the sequence. 78 is the first number in the sequence whose two parts of its symmetric representation contain pieces of width two.
Crossrefs
Programs
-
Mathematica
(* Function path[] is defined in A237270 *) meetAtDiagonalQ[n_] := Module[{diags=Transpose[{Drop[Drop[path[n], 1], -1], path[n-1]}]}, Length[Union[diags[[n]]]]==1 && First[diags[[n-1]]]!=Last[diags[[n-1]]]] a298856[m_, n_] := Select[Map[#(2#+1)&, Range[m, n]], meetAtDiagonalQ] a298856[1, 70] (* data *)
Comments