A044504 Numbers n such that string 3,3 occurs in the base 6 representation of n but not of n+1.

21, 57, 93, 131, 165, 201, 237, 273, 309, 347, 381, 417, 453, 489, 525, 563, 597, 633, 669, 705, 741, 791, 813, 849, 885, 921, 957, 995, 1029, 1065, 1101, 1137, 1173, 1211, 1245, 1281, 1317, 1353, 1389, 1427, 1461, 1497, 1533, 1569, 1605, 1643, 1677, 1713

Offset

1,1

Links

Table of n, a(n) for n=1..48.

Mathematica

f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "33", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* Vladimir Joseph Stephan Orlovsky, Jul 20 2011 *)

Crossrefs

Cf. A044123.

Sequence in context: A176069 A043382 A044123 * A118057 A327902 A020148

Adjacent sequences: A044501 A044502 A044503 * A044505 A044506 A044507

Keyword

nonn,base

Author

Clark Kimberling

Status

approved