OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
n05Q[n_]:=MemberQ[Sort/@Partition[IntegerDigits[n, 8], 2, 1], {0, 5}]; Select[ Range[1500], n05Q[#]&&!n05Q[#+1]&] (* Harvey P. Dale, May 07 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {0, 5}]>0||SequenceCount[IntegerDigits[n, 8], {5, 0}]>0, 1, 0], {n, 1500}], {1, 0}][[;; , 1]] (* Harvey P. Dale, May 14 2026 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved
