OFFSET
1,1
COMMENTS
A 6-automatic set: membership is determined by comparing the base-6 representation of the number to the regular expression /5?([^5]+5)*([^45]|[^5]4)55+/. - Charles R Greathouse IV, Feb 11 2012
1259 = 36*34 + 35 is the first number of the form 36*(m-1) + 35, for m >= 1, that is not in the sequence, because (1259)_6 = 5455 and (1260)_6 = 5500. See A350055 for {36*n + 35}. - Wolfdieter Lang, Feb 10 2022
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000 (first 500 terms from Vincenzo Librandi)
MATHEMATICA
f[n_]:=Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "55", 1]]; Select[Table[n, {n, 2000}], f[#]>0&&f[#+1]==0&] (* Vincenzo Librandi, Feb 11 2012 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {5, 5}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 13 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved