STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Cf. A007089.
proposed
editing
editing
proposed
Numbers n k such that 1 and 2 occur juxtaposed in the base -3 representation of n k but not of nk+1.
approved
editing
editing
approved
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {1, 2}]>0 || SequenceCount[IntegerDigits[n, 3], {2, 1}]>0, 1, 0], {n, 400}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 18 2018 *)
approved
editing
Clark Kimberling (ck6(AT)evansville.edu)
Numbers n such that 1 and 2 occur juxtaposed in the base 3 representation of n but not of n+1.
nonn,base,new