login
A044538
Numbers n such that string 2,5 occurs in the base 7 representation of n but not of n+1.
0
19, 68, 117, 139, 166, 215, 264, 313, 362, 411, 460, 482, 509, 558, 607, 656, 705, 754, 803, 825, 852, 901, 979, 999, 1048, 1097, 1146, 1168, 1195, 1244, 1293, 1342, 1391, 1440, 1489, 1511, 1538, 1587, 1636, 1685, 1734, 1783
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {2, 5}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 16 2020 *)
CROSSREFS
Sequence in context: A357365 A228670 A044157 * A297226 A300463 A204675
KEYWORD
nonn,base
STATUS
approved