A020657 -id:A020657 - cp's OEIS frontend

A037477 a(n) = Sum{d(i)9^i: i=0,1,...,m}, where Sum{d(i)8^i: i=0,1,...,m} is the base 8 representation of n.

0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 81, 82, 83, 84, 85

Offset: 0

Clark Kimberling

Numbers that do not contain the digit 8 in their base 9 expansion. - M. F. Hasler, Oct 05 2014

			a(63) = 7*9+7 = 70 since 63 = 77[8], i.e., "77" when written in base 8;
a(64) = 1*9^2 = 81 since 64 = 100[8]. - _M. F. Hasler_, Oct 05 2014

François Marques, Table of n, a(n) for n = 0..10000 (first 1000 terms from Clark Kimberling)

Cf. A248375.
Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), A337572 (b=5), A333656 (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).
Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), this sequence (b=9), A007095 (b=10), A171397 (b=11).

Table[FromDigits[RealDigits[n, 8], 9], {n, 0, 100}]
Select[Range[0,100],DigitCount[#,9,8]==0&] (* Harvey P. Dale, Aug 06 2024 *)

a(n) = vector(#n=digits(n,8),i,9^(#n-i))*n~ \\ M. F. Hasler, Oct 05 2014

a(n) = fromdigits(digits(n, 8), 9); \\ François Marques, Oct 15 2020

def A037477(n): return int(oct(n)[2:],9) # Chai Wah Wu, Jan 27 2025

For n<64, a(n) = floor(9n/8) = A248375(n). - M. F. Hasler, Oct 05 2014

Offset changed to 0 by Clark Kimberling, Aug 14 2012

A095778 Values of n for which A095777(n) is 9 (those terms which are expressible in decimal digits for bases 2 through 10, but not for base 11).

Original entry on oeis.org

10, 21, 32, 43, 54, 65, 76, 87, 98, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 131, 142, 153, 164, 175, 186, 197, 208, 219, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 252, 263, 274, 285, 296, 307, 318, 329, 340, 351, 352, 353

Offset: 1

Chuck Seggelin (seqfan(AT)plastereddragon.com), Jun 05 2004

Numbers with at least one digit A (=10) in their representation in base 11. Complementary sequence to A171397. - François Marques, Oct 11 2020

			a(5)=54 because 54 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 11. Like so: 110110, 2000, 312, 204, 130, 105, 66, 60, 54. In base 11, 54 is 4A.

François Marques, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)

Cf. A095777.
Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), A337572 (b=5), A333656 (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), this sequence (b=11).
Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

S := []; for n from 1 to 1000 do; if 1>0 then; ct := 0; ok := true; b := 2; if (n>9) then; while ok=true do; L := convert(n, base, b); for e in L while ok=true do; if (e > 9) then ok:=false; fi; od; if ok=true then; ct := ct + 1; b := b + 1; fi; od; fi; if ct=9 then S := [op(S), n]; fi; fi; od; S;
# or
seq(`if`(numboccur(10, convert(n, base, 11))>0, n, NULL), n=0..1000); # François Marques, Oct 11 2020

Select[Range[400],Max[IntegerDigits[#,11]]>9&] (* Harvey P. Dale, Sep 30 2018 *)

isok(m) = #select(x->(x==10), digits(m, 11)) >= 1; \\ François Marques, Oct 11 2020

from gmpy2 import digits
def A095778(n):
    def f(x):
        l = (s:=digits(x,11)).find('a')
        if l >= 0: s = s[:l]+'9'*(len(s)-l)
        return n+int(s)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A337250 Numbers having at least one 3 in their representation in base 4.

Original entry on oeis.org

3, 7, 11, 12, 13, 14, 15, 19, 23, 27, 28, 29, 30, 31, 35, 39, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 67, 71, 75, 76, 77, 78, 79, 83, 87, 91, 92, 93, 94, 95, 99, 103, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119

Offset: 1

François Marques, Sep 19 2020

Complementary sequence of A023717.

			18 is not in the sequence since it is 102_4 in base 4, but 19 is in the sequence since it is 103_4 in base 4.

François Marques, Table of n, a(n) for n = 1..10000

Cf. A196032 (at least one 0 in base 4).
Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), this sequence, A337572 (b=5), A333656 (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).
Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

seq(`if`(numboccur(3, convert(n, base, 4))>0, n, NULL), n=0..100);

Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 4 ], 3 ]>0)& ]

isok(m) = #select(x->(x==3), digits(m, 4)) >= 1; \\ Michel Marcus, Sep 20 2020

from gmpy2 import digits
def A337250(n):
    def f(x):
        l = (s:=digits(x,4)).find('3')
        if l >= 0: s = s[:l]+'2'*(len(s)-l)
        return n+int(s,3)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A337572 Numbers having at least one 4 in their representation in base 5.

Original entry on oeis.org

4, 9, 14, 19, 20, 21, 22, 23, 24, 29, 34, 39, 44, 45, 46, 47, 48, 49, 54, 59, 64, 69, 70, 71, 72, 73, 74, 79, 84, 89, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 129, 134

Offset: 1

François Marques, Sep 19 2020

Complementary sequence to A020654.

			75 is not in the sequence since it is 300_5 in base 5, but 74 is in the sequence since it is 244_5 in base 5.

François Marques, Table of n, a(n) for n = 1..10000

Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), this sequence (b=5), A333656 (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).

Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

seq(`if`(numboccur(4, convert(n, base, 5))>0, n, NULL), n=0..100);

Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 5 ], 4 ]>0)& ]

isok(m) = #select(x->(x==4), digits(m, 5)) >= 1; \\ Michel Marcus, Sep 20 2020

from gmpy2 import digits
def A337572(n):
    def f(x):
        l = (s:=digits(x,5)).find('4')
        if l >= 0: s = s[:l]+'3'*(len(s)-l)
        return n+int(s,4)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A333656 Numbers having at least one 5 in their representation in base 6.

Original entry on oeis.org

5, 11, 17, 23, 29, 30, 31, 32, 33, 34, 35, 41, 47, 53, 59, 65, 66, 67, 68, 69, 70, 71, 77, 83, 89, 95, 101, 102, 103, 104, 105, 106, 107, 113, 119, 125, 131, 137, 138, 139, 140, 141, 142, 143, 149, 155, 161, 167, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184

Offset: 1

François Marques, Sep 20 2020

Complementary sequence to A037465.

			22 is not in the sequence since it is 34_6 in base 6, but 23 is in the sequence since it is 35_6 in base 6.

François Marques, Table of n, a(n) for n = 1..10000

Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), A337572 (b=5), this sequence (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).

Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

seq(`if`(numboccur(5, convert(n, base, 6))>0, n, NULL), n=0..100);

Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 6 ], 5 ]>0)& ]

isok(m) = #select(x->(x==5), digits(m, 6)) >= 1;

from gmpy2 import digits
def A333656(n):
    def f(x):
        l = (s:=digits(x,6)).find('5')
        if l >= 0: s = s[:l]+'4'*(len(s)-l)
        return n+int(s,5)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A337141 Numbers having at least one 6 in their representation in base 7.

Original entry on oeis.org

6, 13, 20, 27, 34, 41, 42, 43, 44, 45, 46, 47, 48, 55, 62, 69, 76, 83, 90, 91, 92, 93, 94, 95, 96, 97, 104, 111, 118, 125, 132, 139, 140, 141, 142, 143, 144, 145, 146, 153, 160, 167, 174, 181, 188, 189, 190, 191, 192, 193, 194, 195, 202, 209, 216, 223, 230, 237, 238, 239, 240

Offset: 1

François Marques, Sep 20 2020

Complementary sequence to A020657.

			33 is not in the sequence since it is 45_7 in base 7, but 34 is in the sequence since it is 46_7 in base 7.

François Marques, Table of n, a(n) for n = 1..10000

Cf. Numbers with at least one digit b-1 in base b: A074940 (b=3), A337250 (b=4), A337572 (b=5), A333656 (b=6), this sequence (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).

Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

seq(`if`(numboccur(6, convert(n, base, 7))>0, n, NULL), n=0..100);

Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 7 ], 6 ]>0)& ]
Select[Range[300],DigitCount[#,7,6]>0&] (* Harvey P. Dale, Dec 23 2020 *)

isok(m) = #select(x->(x==6), digits(m, 7)) >= 1;

from gmpy2 import digits
def A337141(n):
    def f(x):
        l = (s:=digits(x,7)).find('6')
        if l >= 0: s = s[:l]+'5'*(len(s)-l)
        return n+int(s,6)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A337239 Numbers having at least one 7 in their representation in base 8.

Original entry on oeis.org

7, 15, 23, 31, 39, 47, 55, 56, 57, 58, 59, 60, 61, 62, 63, 71, 79, 87, 95, 103, 111, 119, 120, 121, 122, 123, 124, 125, 126, 127, 135, 143, 151, 159, 167, 175, 183, 184, 185, 186, 187, 188, 189, 190, 191, 199, 207, 215, 223, 231, 239, 247, 248, 249, 250, 251, 252, 253, 254, 255

Offset: 1

François Marques, Sep 20 2020

Complementary sequence to A037474.

			54 is not in the sequence since it is 66_8 in base 8, but 55 is in the sequence since it is 67_8 in base 8.

François Marques, Table of n, a(n) for n = 1..10000

Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), A337572 (b=5), A333656 (b=6), A337141 (b=7), this sequence (b=8), A338090 (b=9), A011539 (b=10), A095778 (b=11).

Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

seq(`if`(numboccur(7, convert(n, base, 8))>0, n, NULL), n=0..100);

Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 8 ], 7 ]>0)& ]

isok(m) = #select(x->(x==7), digits(m, 8)) >= 1;

def A337239(n):
    def f(x):
        s = oct(x)[2:]
        l = s.find('7')
        if l >= 0:
            s = s[:l]+'6'*(len(s)-l)
        return n+int(s,7)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

A240075 Lexicographically earliest nonnegative increasing sequence such that no four terms have constant second differences.

Original entry on oeis.org

0, 1, 2, 4, 5, 8, 15, 16, 17, 20, 44, 51, 52, 53, 56, 58, 64, 78, 166, 167, 192, 195, 196, 200, 202, 203, 206, 217, 226, 248, 249, 276, 312, 649, 657, 678, 681, 682, 715, 726, 740, 743, 747, 750, 771, 790, 830, 833, 836, 838, 842, 854, 875, 908, 911, 971

Offset: 1

T. D. Noe, Apr 09 2014

nonn

Vincenzo Librandi and T. D. Noe, Table of n, a(n) for n = 1..755 (first 123 terms from Vincenzo Librandi)

For the positive sequence, see A240555, which is this sequence plus 1.
Summary of increasing sequences avoiding arithmetic progressions of specified lengths (the second of each pair is obtained by adding 1 to the first):
3-term AP: A005836 (>=0), A003278 (>0);
4-term AP: A005839 (>=0), A005837 (>0);
5-term AP: A020654 (>=0), A020655 (>0);
6-term AP: A020656 (>=0), A005838 (>0);
7-term AP: A020657 (>=0), A020658 (>0);
8-term AP: A020659 (>=0), A020660 (>0);
9-term AP: A020661 (>=0), A020662 (>0);
10-term AP: A020663 (>=0), A020664 (>0).
For the analog sequence which avoids 5-term subsequences of constant third differences, see A240556 (>=0) and A240557 (>0).

t = {0, 1, 2}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}]; If[! MemberQ[Flatten[Table[Differences[i, 3], {i, s}]], 0], AppendTo[t, n]], {n, 3, 1000}]; t

A240075(n, show=0, L=4, o=2, v=[0], D=v->v[2..-1]-v[1..-2])={ my(d, m); while( #v1, ); #Set(d)>1||next(2), 2); break)); v[#v]} \\ M. F. Hasler, Jan 12 2016

Definition corrected by N. J. A. Sloane and M. F. Hasler, Jan 04 2016.

A240555 Lexicographically earliest positive increasing sequence such that no four terms have constant second differences.

Original entry on oeis.org

1, 2, 3, 5, 6, 9, 16, 17, 18, 21, 45, 52, 53, 54, 57, 59, 65, 79, 167, 168, 193, 196, 197, 201, 203, 204, 207, 218, 227, 249, 250, 277, 313, 650, 658, 679, 682, 683, 716, 727, 741, 744, 748, 751, 772, 791, 831, 834, 837, 839, 843, 855, 876, 909, 912, 972

Offset: 1

T. D. Noe, Apr 09 2014

nonn

If "positive" is changed to "nonnegative" we get A240075, which is this sequence minus 1.

See A005837 for the earliest sequence containing no 4-term arithmetic progression.

			After 1,2,3 the number 4 is excluded since (1,2,3,4) has zero second and third differences.
After 1,2,3,5 the number 8 is excluded since (2,3,5,8) has second differences 1,1.

T. D. Noe, Table of n, a(n) for n = 1..755 (terms < 10^6)

Summary of increasing sequences avoiding arithmetic progressions of specified lengths (the second of each pair is obtained by adding 1 to the first):
3-term AP: A005836 (>=0), A003278 (>0);
4-term AP: A005839 (>=0), A005837 (>0);
5-term AP: A020654 (>=0), A020655 (>0);
6-term AP: A020656 (>=0), A005838 (>0);
7-term AP: A020657 (>=0), A020658 (>0);
8-term AP: A020659 (>=0), A020660 (>0);
9-term AP: A020661 (>=0), A020662 (>0);
10-term AP: A020663 (>=0), A020664 (>0).
Cf. A240075 (nonnegative version, a(n)-1).
Cf. A240556 and A240557 for sequences avoiding 5-term subsequences with constant third differences.

t = {1, 2, 3}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}]; If[! MemberQ[Flatten[Table[Differences[i, 3], {i, s}]], 0], AppendTo[t, n]], {n, 4, 1000}]; t

A240555(n, show=0, L=4, o=2, v=[1], D=v->v[2..-1]-v[1..-2])={ my(d, m); while( #v1, ); #Set(d)>1||next(2), 2); break)); v[#v]} \\ M. F. Hasler, Jan 12 2016

Definition corrected by N. J. A. Sloane, Jan 04 2016 and M. F. Hasler at the suggestion of Lewis Chen

A240556 Earliest nonnegative increasing sequence with no 5-term subsequence of constant third differences.

Original entry on oeis.org

0, 1, 2, 3, 5, 7, 11, 15, 16, 27, 47, 48, 64, 95, 175, 196, 211, 212, 214, 247, 249, 252, 398, 839, 1002, 1014, 1016, 1035, 1036, 1037, 1051, 1054, 1072, 1121, 1143, 1146, 1172, 1258, 4271, 4282, 4284, 4336, 4571, 4578, 4582, 4598, 4613, 4622, 4628, 4646

Offset: 1

T. D. Noe, Apr 09 2014

nonn

For the positive sequence, see A240557, which is this sequence plus 1. Is there a simple way of determining this sequence, as in the case of the no 3-term arithmetic progression?

			After (0, 1, 2, 3, 5, 7), the number 10 is excluded since else the subsequence (0, 2, 3, 5, 10) would have successive 1st, 2nd and 3rd differences (2, 1, 2, 5), (-1, 1, 3) and (2, 2), which is constant and thus excluded.

Cf. A240557 (starting with 1).
No 3-term AP: A005836 (>=0), A003278 (>0);
no 4-term AP: A240075 (>=0), A240555 (>0);
no 5-term AP: A020654 (>=0), A020655 (>0);
no 6-term AP: A020656 (>=0), A005838 (>0);
no 7-term AP: A020657 (>=0), A020658 (>0);
no 8-term AP: A020659 (>=0), A020660 (>0);
no 9-term AP: A020661 (>=0), A020662 (>0);
no 10-term AP: A020663 (>=0), A020664 (>0).
Cf. A240075 and A240555 for sequences avoiding 4-term subsequences with constant second differences.

t = {0, 1, 2, 3}; Do[s = Table[Append[i, n], {i, Subsets[t, {4}]}]; If[! MemberQ[Flatten[Table[Differences[i, 4], {i, s}]], 0], AppendTo[t, n]], {n, 4, 5000}]; t

A240556(n,show=0,L=5,o=3,v=[0],D=v->v[2..-1]-v[1..-2])={ my(d,m); while( #v1,);#Set(d)>1||next(2),2);break));v[#v]} \\ M. F. Hasler, Jan 12 2016

cp's OEIS Frontend

A037477 a(n) = Sum{d(i)*9^i: i=0,1,...,m}, where Sum{d(i)*8^i: i=0,1,...,m} is the base 8 representation of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Python

Formula

Extensions

A095778 Values of n for which A095777(n) is 9 (those terms which are expressible in decimal digits for bases 2 through 10, but not for base 11).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python

A337250 Numbers having at least one 3 in their representation in base 4.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python

A337572 Numbers having at least one 4 in their representation in base 5.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python

A333656 Numbers having at least one 5 in their representation in base 6.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python

A337141 Numbers having at least one 6 in their representation in base 7.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A037477 a(n) = Sum{d(i)9^i: i=0,1,...,m}, where Sum{d(i)8^i: i=0,1,...,m} is the base 8 representation of n.