OFFSET
1,3
COMMENTS
No more terms <5000000. Is the sequence finite?
The PARI program shows that there is no further term up to 10^100. - Robert Gerbicz, Jun 10 2007
EXAMPLE
n=893: T(n)=399171, T(n+1)=400065; n=2827: T(n)=3997378, T(n+1)=4000206.
MATHEMATICA
Join[{0}, Flatten[Position[Partition[IntegerDigits/@Accumulate[Range[ 3000]], 2, 1], _?(Intersection[First[#], Last[#]]=={}&), {1}, Heads->False]]] (* Harvey P. Dale, Jun 03 2014 *)
PROG
(PARI) my(M=-1); for(h=0, 200, for(k=1, 9, my(b=(sqrtint(8*k*10^h)-1)\2, d1=vector(10, n, 0), d2=d1, n=b*(b+1)/2); while(n>0, d1[n%10+1]=1; n\=10); n=(b+1)*(b+2)/2; while(n>0, d2[n%10+1]=1; n\=10); my(T=1); for(i=1, 10, if(d1[i]*d2[i]>0, T=0; break)); if(T&&(M<b), M=b; print1(b, ", ")))) \\ Robert Gerbicz, Jun 10 2007
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 28 2007
STATUS
approved