OFFSET
1,1
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 1100 terms from Vincenzo Librandi)
Giovanni Resta, Zygodrome
MATHEMATICA
Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 10]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)
PROG
(PARI) is(n)={n=digits(n); while(#n>2 && n[2]==n[1], n=if(n[3]==n[1], n[^1], n[3..-1])); #n>1&&n[1]==n[2]} \\ M. F. Hasler, Jun 24 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved