OFFSET
1,1
COMMENTS
Numbers 4, 49, 499, 4999, ...; 52, 502, 5002, 50002, ...; 594, 509949, 500999499, 500099994999, ...; 415, 490150, 499001500, 499900015000, ...; with obvious patterns are members of the sequence. - Vladeta Jovovic, Jun 09 2004
EXAMPLE
E.g. 5253 is triangular so 52 is a member.
MATHEMATICA
triQ[n_] := Block[{k = Floor[ Sqrt[2n]]}, If[ k(k + 1) == 2n, True, False]]; Do[ If[ triQ[ FromDigits[ Join[ IntegerDigits[n], IntegerDigits[n + 1]] ]] == True, Print[ n]], {n, 45000000}] (* Robert G. Wilson v, Jun 09 2004 *)
nctrQ[n_]:=With[{c=FromDigits[Join[IntegerDigits[n], IntegerDigits[n+1]]]}, OddQ[Sqrt[8c+1]]]; Select[Range[50000003], nctrQ] (* Harvey P. Dale, Aug 17 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 06 2004
EXTENSIONS
More terms from Robert G. Wilson v, Jun 09 2004
STATUS
approved