login
A043936
Numbers k such that 0 and 5 occur juxtaposed in the base-8 representation of k but not of k+1.
1
40, 69, 104, 133, 168, 197, 232, 261, 296, 327, 360, 389, 424, 453, 488, 517, 559, 581, 616, 645, 680, 709, 744, 773, 808, 839, 872, 901, 936, 965, 1000, 1029, 1071, 1093, 1128, 1157, 1192, 1221, 1256, 1285, 1320, 1351, 1384
OFFSET
1,1
LINKS
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
Cf. A007094.
Sequence in context: A134216 A043156 A039333 * A251123 A064635 A098517
KEYWORD
nonn,base
STATUS
approved