[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
A043108
Numbers k such that 0 and 3 occur juxtaposed in the base-5 representation of k but not of k-1.
0
15, 28, 40, 53, 65, 75, 90, 103, 115, 128, 140, 153, 165, 178, 190, 200, 215, 228, 240, 253, 265, 278, 290, 303, 315, 325, 340, 353, 365, 375, 403, 415, 428, 440, 450, 465, 478, 490, 503, 515, 528, 540, 553, 565, 575, 590, 603
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 5], {0, 3}]>0|| SequenceCount[ IntegerDigits[n, 5], {3, 0}]>0, 1, 0], {n, 700}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 21 2021 *)
CROSSREFS
Cf. A007091.
Sequence in context: A134621 A373259 A106499 * A045192 A039285 A043888
KEYWORD
nonn,base
STATUS
approved