login
A044547
Numbers n such that string 4,0 occurs in the base 7 representation of n but not of n+1.
0
28, 77, 126, 175, 202, 224, 273, 322, 371, 420, 469, 518, 545, 567, 616, 665, 714, 763, 812, 861, 888, 910, 959, 1008, 1057, 1106, 1155, 1204, 1231, 1253, 1302, 1351, 1420, 1449, 1498, 1547, 1574, 1596, 1645, 1694, 1743, 1792
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {4, 0}]>0, 1, 0], {n, 2000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Oct 02 2015 *)
CROSSREFS
Sequence in context: A116314 A341175 A044166 * A268733 A119178 A161935
KEYWORD
nonn,base
STATUS
approved