[go: up one dir, main page]

login
A044560
Numbers k such that string 5,6 occurs in the base 7 representation of k but not of k+1.
0
41, 90, 139, 188, 237, 293, 335, 384, 433, 482, 531, 580, 636, 678, 727, 776, 825, 874, 923, 979, 1021, 1070, 1119, 1168, 1217, 1266, 1322, 1364, 1413, 1462, 1511, 1560, 1609, 1665, 1707, 1756, 1805, 1854, 1903, 1952, 2057
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {5, 6}]>0, 1, 0], {n, 2100}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 21 2017 *)
CROSSREFS
Sequence in context: A087857 A139995 A044179 * A039469 A124247 A256485
KEYWORD
nonn,base
STATUS
approved