login
A044136
Numbers n such that string 5,4 occurs in the base 6 representation of n but not of n-1.
0
34, 70, 106, 142, 178, 204, 214, 250, 286, 322, 358, 394, 420, 430, 466, 502, 538, 574, 610, 636, 646, 682, 718, 754, 790, 826, 852, 862, 898, 934, 970, 1006, 1042, 1068, 1078, 1114, 1150, 1186, 1222, 1224, 1284, 1294, 1330
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {5, 4}]>0, 1, 0], {n, 1500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 12 2018 *)
CROSSREFS
Sequence in context: A277113 A036180 A063331 * A044517 A063333 A079863
KEYWORD
nonn,base
STATUS
approved