login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A226788 Triangular numbers obtained as the concatenation of n and n+1. 3
45, 78, 4950, 5253, 295296, 369370, 415416, 499500, 502503, 594595, 652653, 760761, 22542255, 49995000, 50025003, 88278828, 1033010331, 1487714878, 4999950000, 5000250003, 490150490151, 499999500000, 500002500003, 509949509950, 33471093347110, 49999995000000, 50000025000003 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

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

Cf. A003098, A068899, A226742, A226772, A226789.

Sequence in context: A194426 A082452 A049104 * A102578 A026060 A138171

Adjacent sequences:  A226785 A226786 A226787 * A226789 A226790 A226791

KEYWORD

nonn,base

AUTHOR

Antonio Roldán, Jun 18 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified January 21 13:52 EST 2018. Contains 297994 sequences.