OFFSET
1,1
EXAMPLE
If n=295, n//n+1 = 295296 = 768*769/2, a triangular number.
MATHEMATICA
TriangularQ[n_] := IntegerQ[Sqrt[1 + 8*n]]; t = {}; Do[s = FromDigits[Join[IntegerDigits[n], IntegerDigits[n+1]]]; If[TriangularQ[s], AppendTo[t, s]], {n, 100000}]; t (* T. D. Noe, Jun 18 2013 *)
Select[FromDigits[Join[Flatten[IntegerDigits[#]]]]&/@Partition[ Range[ 5000010], 2, 1], OddQ[Sqrt[8#+1]]&] (* Harvey P. Dale, Jun 11 2015 *)
PROG
(PARI)
concatint(a, b)=eval(concat(Str(a), Str(b)))
istriang(x)=issquare(8*x+1)
{for(n=1, 10^7, a=concatint(n, n+1); if(istriang(a), print(a)))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antonio Roldán, Jun 18 2013
STATUS
approved