login
A044561
Numbers n such that string 6,0 occurs in the base 7 representation of n but not of n+1.
0
42, 91, 140, 189, 238, 287, 300, 336, 385, 434, 483, 532, 581, 630, 643, 679, 728, 777, 826, 875, 924, 973, 986, 1022, 1071, 1120, 1169, 1218, 1267, 1316, 1329, 1365, 1414, 1463, 1512, 1561, 1610, 1659, 1672, 1708, 1757, 1806
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {6, 0}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 28 2020 *)
CROSSREFS
Sequence in context: A370521 A067296 A044180 * A169680 A177772 A169738
KEYWORD
nonn,base
STATUS
approved