login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A297142 Numbers whose base-8 digits d(m), d(m-1),..., d(0) have m=0 or else d(i) = d(i+1) for some i in {0,1,...,m-1}. 5
1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 64, 72, 73, 74, 75, 76, 77, 78, 79, 82, 91, 100, 109, 118, 127, 128, 137, 144, 145, 146, 147, 148, 149, 150, 151, 155, 164, 173, 182, 191, 192, 201, 210, 216, 217, 218, 219, 220, 221, 222, 223, 228, 237, 246 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

These numbers comprise the complement of the set of numbers in the union of A297140 and A297141.

Differs from A044819 first for 513 = 1001_8, which has two consecutive equal digits and is in this sequence, but has two runs of equal length (1), and is not in A044819. - R. J. Mathar, Jan 17 2018

LINKS

Table of n, a(n) for n=1..58.

EXAMPLE

Base-8 digits of 5000: 1,1,6,1,0, so that 5000 is in the sequence.

MAPLE

read("transforms") :

isA297142 := proc(n)

    local dgs, ud;

    dgs := convert(n, base, 8) ;

    if nops(dgs) < 2 then

        return true;

    end if;

    if 0 in DIFF(dgs) then

        true;

    else

        false;

    end if;

end proc:

for n from 1 to 300 do

    if isA297142(n) then

        printf("%d, ", n) ;

    end if;

end do: # R. J. Mathar, Jan 18 2018

MATHEMATICA

a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;

b = 8; t = Table[a[n, b], {n, 1, 10*z}];

u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &]   (* A297140 *)

v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &]  (* A297141 *)

Complement[Range[z], Union[u, v]]  (* A297142 *)

CROSSREFS

Cf. A297140, A297142.

Sequence in context: A039126 A083376 A044957 * A044819 A048305 A043711

Adjacent sequences:  A297139 A297140 A297141 * A297143 A297144 A297145

KEYWORD

nonn,easy,base

AUTHOR

Clark Kimberling, Jan 15 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 1 13:22 EST 2021. Contains 349429 sequences. (Running on oeis4.)