login
A044617
Numbers n such that string 6,1 occurs in the base 8 representation of n but not of n+1.
0
49, 113, 177, 241, 305, 369, 399, 433, 497, 561, 625, 689, 753, 817, 881, 911, 945, 1009, 1073, 1137, 1201, 1265, 1329, 1393, 1423, 1457, 1521, 1585, 1649, 1713, 1777, 1841, 1905, 1935, 1969, 2033, 2097, 2161, 2225, 2289, 2353
OFFSET
1,1
MATHEMATICA
Select[Range[2500], MemberQ[Partition[IntegerDigits[#, 8], 2, 1], {6, 1}] && !MemberQ[Partition[ IntegerDigits[#+1, 8], 2, 1], {6, 1}]&] (* Harvey P. Dale, Jul 28 2012 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {6, 1}]>0, 1, 0], {n, 2500}], {1, 0}][[;; , 1]] (* Harvey P. Dale, Aug 17 2023 *)
CROSSREFS
Sequence in context: A088868 A373734 A044236 * A216169 A348054 A090095
KEYWORD
nonn,base
STATUS
approved