login
A044558
Numbers n such that string 5,4 occurs in the base 7 representation of n but not of n+1.
0
39, 88, 137, 186, 235, 279, 284, 333, 382, 431, 480, 529, 578, 622, 627, 676, 725, 774, 823, 872, 921, 965, 970, 1019, 1068, 1117, 1166, 1215, 1264, 1308, 1313, 1362, 1411, 1460, 1509, 1558, 1607, 1651, 1656, 1705, 1754, 1803
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {5, 4}]>0, 1, 0], {n, 2000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jun 05 2016 *)
CROSSREFS
Sequence in context: A063335 A020264 A044177 * A242181 A020168 A063318
KEYWORD
nonn,base
STATUS
approved