[go: up one dir, main page]

login
A043912
Numbers k such that 0 and 2 occur juxtaposed in the base-7 representation of k but not of k+1.
0
14, 51, 63, 104, 112, 149, 161, 198, 210, 247, 259, 296, 308, 345, 363, 394, 406, 447, 455, 492, 504, 541, 553, 590, 602, 639, 651, 734, 737, 749, 790, 798, 835, 847, 884, 896, 933, 945, 982, 994, 1031, 1049, 1080, 1092, 1133
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {0, 2}]>0 || SequenceCount[IntegerDigits[n, 7], {2, 0}]>0, 1, 0], {n, 1200}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 13 2020 *)
CROSSREFS
Cf. A007093.
Sequence in context: A158519 A043132 A039309 * A244804 A009961 A059997
KEYWORD
nonn,base
STATUS
approved