Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A044557
Numbers n such that string 5,3 occurs in the base 7 representation of n but not of n+1.
0
38, 87, 136, 185, 234, 272, 283, 332, 381, 430, 479, 528, 577, 615, 626, 675, 724, 773, 822, 871, 920, 958, 969, 1018, 1067, 1116, 1165, 1214, 1263, 1301, 1312, 1361, 1410, 1459, 1508, 1557, 1606, 1644, 1655, 1704, 1753, 1802
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {5, 3}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2019 *)
CROSSREFS
Sequence in context: A211498 A244733 A044176 * A014716 A374268 A137028
KEYWORD
nonn,base
STATUS
approved