cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 42 results. Next

A020660 Lexicographically earliest increasing sequence of positive numbers that contains no arithmetic progression of length 8.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 59, 60, 61, 62, 63, 64, 65, 67, 69, 70, 71, 72, 74, 75, 76, 77, 78, 79, 81, 84, 85, 87, 88, 89, 91, 92, 93, 95, 96, 97
Offset: 1

Views

Author

David W. Wilson

Keywords

Links

Crossrefs

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).

Programs

  • Maple
    Noap:= proc(N,m)
# N terms of earliest increasing seq with no m-term arithmetic progression
local A,forbid,n,c,ds,j;
A:= Vector(N):
A[1..m-1]:= <($1..m-1)>:
forbid:= {m}:
for n from m to N do
  c:= min({$A[n-1]+1..max(max(forbid)+1, A[n-1]+1)} minus forbid);
  A[n]:= c;
  ds:= convert(map(t -> c-t, A[m-2..n-1]),set);
  for j from m-2 to 2 by -1 do
    ds:= ds intersect convert(map(t -> (c-t)/j, A[m-j-1..n-j]),set);
    if ds = {} then break fi;
  od;
  forbid:= select(`>`,forbid,c) union map(`+`,ds,c);
od:
convert(A,list)
end proc:
Noap(100, 8); # Robert Israel, Jan 04 2016

A020661 Lexicographically earliest increasing sequence of nonnegative numbers that contains no arithmetic progression of length 9.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 26, 27, 28, 29, 30, 31, 32, 33, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 52, 54, 55, 56, 57, 58, 59, 63, 64, 65, 66, 67, 68, 69, 70, 77, 78, 79, 80, 81, 82, 83, 84, 86, 87, 90, 91, 93, 94, 95, 96, 97
Offset: 1

Views

Author

David W. Wilson

Keywords

Links

Crossrefs

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).

A020662 Lexicographically earliest increasing sequence of positive numbers that contains no arithmetic progression of length 9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 27, 28, 29, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 53, 55, 56, 57, 58, 59, 60, 64, 65, 66, 67, 68, 69, 70, 71, 78, 79, 80, 81, 82, 83, 84, 85, 87, 88, 91, 92, 94, 95, 96, 97
Offset: 1

Views

Author

David W. Wilson

Keywords

Links

Crossrefs

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).

Programs

  • Maple
    Noap:= proc(N,m)
# N terms of earliest increasing seq with no m-term arithmetic progression
local A,forbid,n,c,ds,j;
A:= Vector(N):
A[1..m-1]:= <($1..m-1)>:
forbid:= {m}:
for n from m to N do
  c:= min({$A[n-1]+1..max(max(forbid)+1, A[n-1]+1)} minus forbid);
  A[n]:= c;
  ds:= convert(map(t -> c-t, A[m-2..n-1]),set);
  for j from m-2 to 2 by -1 do
    ds:= ds intersect convert(map(t -> (c-t)/j, A[m-j-1..n-j]),set);
    if ds = {} then break fi;
  od;
  forbid:= select(`>`,forbid,c) union map(`+`,ds,c);
od:
convert(A,list)
end proc:
Noap(100,9); # Robert Israel, Jan 04 2016

A020663 Lexicographically earliest increasing sequence of nonnegative numbers that contains no arithmetic progression of length 10.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 48, 49, 50, 51, 52, 53, 54, 57, 58, 59, 60, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 80, 81, 82, 83, 84, 87, 88, 95, 96
Offset: 1

Views

Author

David W. Wilson

Keywords

Links

Crossrefs

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).

A005839 Lexicographically earliest increasing nonnegative sequence that contains no 4-term arithmetic progression.

Original entry on oeis.org

0, 1, 2, 4, 5, 7, 8, 9, 14, 15, 16, 18, 25, 26, 28, 29, 30, 33, 36, 48, 49, 50, 52, 53, 55, 56, 57, 62, 64, 65, 66, 79, 86, 87, 88, 90, 93, 98, 101, 104, 105, 108, 109, 110, 121, 125, 135, 144, 148, 150, 151, 159, 162, 166, 168, 169, 170, 173, 175, 176, 182
Offset: 1

Views

Author

N. J. A. Sloane

Keywords

Comments

a(n) = A005837(n) - 1. - Alois P. Heinz, Jan 31 2014

References

  • R. K. Guy, Unsolved Problems in Number Theory, E10.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

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).

Programs

  • Mathematica
    t = {0, 1, 2}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}];
If[! MemberQ[Table[Differences[i, 2], {i, s}], {0, 0}], AppendTo[t, n]], {n, 3, 200}]; t (* T. D. Noe, Apr 17 2014 *)

Extensions

More terms from Jeffrey Shallit, Aug 15 1995.
Edited (with new offset, etc.) by N. J. A. Sloane, Jan 04 2016

A005837 Lexicographically earliest increasing sequence of positive numbers that contains no 4-term arithmetic progression.

Original entry on oeis.org

1, 2, 3, 5, 6, 8, 9, 10, 15, 16, 17, 19, 26, 27, 29, 30, 31, 34, 37, 49, 50, 51, 53, 54, 56, 57, 58, 63, 65, 66, 67, 80, 87, 88, 89, 91, 94, 99, 102, 105, 106, 109, 110, 111, 122, 126, 136, 145, 149, 151, 152, 160, 163, 167, 169, 170, 171, 174, 176, 177, 183, 187, 188, 194, 196
Offset: 1

Views

Author

N. J. A. Sloane, Jeffrey Shallit

Keywords

Comments

a(n) = A005839(n) + 1. - Alois P. Heinz, Jan 31 2014

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

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).

Programs

  • Maple
    Noap:= proc(N,m)
# N terms of earliest increasing seq with no m-term arithmetic progression
local A,forbid,n,c,ds,j;
A:= Vector(N):
A[1..m-1]:= <($1..m-1)>:
forbid:= {m}:
for n from m to N do
  c:= min({$A[n-1]+1..max(max(forbid)+1, A[n-1]+1)} minus forbid);
  A[n]:= c;
  ds:= convert(map(t -> c-t, A[m-2..n-1]),set);
  for j from m-2 to 2 by -1 do
    ds:= ds intersect convert(map(t -> (c-t)/j, A[m-j-1..n-j]),set);
    if ds = {} then break fi;
  od;
  forbid:= select(`>`,forbid,c) union map(`+`,ds,c);
od:
convert(A,list)
end proc:
Noap(100,4); # Robert Israel, Jan 04 2016
  • Mathematica
    t = {1, 2, 3}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}]; If[! MemberQ[Table[Differences[i, 2], {i, s}], {0, 0}], AppendTo[t, n]], {n, 4, 200}]; t (* T. D. Noe, Apr 17 2014 *)

Extensions

Edited by M. F. Hasler, Jan 03 2016. Further edited (with new offset) by N. J. A. Sloane, Jan 04 2016

A171397 Write n in base 10, but then read it as if it were written in base 11: if n = Sum_{i >= 0} d_i*10^i, with 0 <= d_i <= 9, then a(n) = Sum_{i >= 0} d_i*11^i.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72
Offset: 0

Views

Author

Paul Weisenhorn, Jul 11 2011

Keywords

Comments

This is the sequence of all decimal integers that are created when base 10 numbers are interpreted as base 11 numbers.
Numbers without digit A (=10) in their representation in base 11. Complement of A095778. - François Marques, Oct 20 2020
Original definition: Earliest sequence containing no 11-term arithmetic progression.
In general, if p is prime, the earliest sequence containing no p-term arithmetic progression is created when base (p-1) numbers are interpreted as base p numbers.

Examples

			a(53)=58 because 53_11 in base 11 equals 58. - _François Marques_, Oct 20 2020

References

  • D. E. Arganbright, Mathematical Modeling with Spreadsheets, ABACUS, Vol. 3, #4(1986), 19-31.

Links

Crossrefs

Different from A065039. - Alois P. Heinz, Sep 07 2011
CNumbers 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).
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), this sequence (b=11).

Programs

  • Maple
    seq(`if`(numboccur (10, convert (n, base, 11))=0, n, NULL), n=0..122);
# second Maple program:
a:= n-> (l-> add(l[i]*11^(i-1), i=1..nops(l)))(convert(n, base, 10)):
seq(a(n), n=0..66);  # Alois P. Heinz, Aug 30 2024
  • Mathematica
    Table[FromDigits[RealDigits[n, 10], 11], {n, 0, 100}] (* François Marques, Oct 20 2020 *)
  • PARI
    a(n) = fromdigits(digits(n), 11); \\ Michel Marcus, Oct 09 2020
  • Python
    def A171397(n): return int(str(n),11) # Chai Wah Wu, Aug 30 2024

Extensions

Edited by N. J. A. Sloane, Aug 31 2024

A037465 a(n) = Sum_{i=0..m} d(i)*6^i, where Sum_{i=0..m} d(i)*5^i is the base 5 representation of n.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 61, 62, 63, 64, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

Numbers without digit 5 in base 6. Complement of A333656. - François Marques, Oct 13 2020

Examples

			a(34)=46 because 34 is 114_5 in base 5 and 114_6=46. - _François Marques_, Oct 13 2020

Links

Crossrefs

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), this sequence (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

Programs

  • Mathematica
    Table[FromDigits[RealDigits[n, 5], 6], {n, 0, 100}] (* Clark Kimberling, Aug 14 2012 *)
  • PARI
    a(n) = fromdigits(digits(n, 5), 6); \\ François Marques, Oct 13 2020
  • Python
    from gmpy2 import digits
def A037465(n): return int(digits(n,5),6) # Chai Wah Wu, May 06 2025

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012

A338090 Numbers having at least one 8 in their representation in base 9.

Original entry on oeis.org

8, 17, 26, 35, 44, 53, 62, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 89, 98, 107, 116, 125, 134, 143, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 170, 179, 188, 197, 206, 215, 224, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 251, 260, 269, 278, 287, 296, 305, 314, 315
Offset: 1

Views

Author

François Marques, Oct 09 2020

Keywords

Comments

Blocks of consecutive terms have lengths in A002452. - Devansh Singh, Oct 21 2020

Examples

			70 is not in the sequence since it is 77_9 in base 9, but 76 is in the sequence since it is 84_9 in base 9.

Links

Crossrefs

Cf. A007095 (base 9).
Complement of A037477.
Cf. A043485 (numbers with exactly one 8 in base 9).
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), this sequence (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).

Programs

  • Maple
    seq(`if`(numboccur(8, convert(n, base, 9))>0, n, NULL), n=0..100);
  • Mathematica
    Select[ Range[ 0, 100 ], (Count[ IntegerDigits[ #, 9 ], 8 ]>0)& ]
  • PARI
    isok(m) = #select(x->(x==8), digits(m, 9)) >= 1;
  • Python
    from gmpy2 import digits
def A338090(n):
    def f(x):
        l = (s:=digits(x,9)).find('8')
        if l >= 0: s = s[:l]+'7'*(len(s)-l)
        return n+int(s,8)
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Dec 04 2024

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

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 77, 78, 80, 81, 82, 83, 84, 85
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

Numbers without digit 7 in base 8. Complement of A337239. - François Marques, Oct 13 2020

Examples

			a(48)=54 because 48 is 66_7 in base 7 and 66_8=54. - _François Marques_, Oct 13 2020

Links

Crossrefs

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), this sequence (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).

Programs

  • Mathematica
    Table[FromDigits[RealDigits[n, 7], 8], {n, 0, 100}] (* Clark Kimberling, Aug 14 2012 *)
  • PARI
    a(n) = fromdigits(digits(n, 7), 8); \\ François Marques, Oct 13 2020
  • Python
    from gmpy2 import digits
def A037474(n): return int(digits(n,7),8) # Chai Wah Wu, Dec 04 2024

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012
Previous Showing 11-20 of 42 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.