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.

Showing 1-2 of 2 results.

A224853 Lexicographically earliest sequence of nonnegative integers which does not contain a three-term arithmetic, geometric, or harmonic subsequence.

Original entry on oeis.org

0, 1, 3, 4, 10, 11, 13, 14, 29, 30, 32, 33, 38, 39, 41, 42, 85, 86, 88, 89, 94, 95, 97, 98, 112, 113, 115, 116, 122, 123, 125, 238, 248, 251, 252, 255, 257, 260, 261, 273, 275, 278, 279, 287, 288, 292, 330, 331, 334, 335
Offset: 1

Views

Author

Timur Vural, Jul 28 2013

Keywords

Comments

This sequence diverges from A225571 at 477th term. Here a(477) = 17408, while A225571(477) = 17380. - Giovanni Resta, Jul 29 2013

Examples

			After terms 0, 1, 3, 4 have been added, the terms 5,...,9 are forbidden by subsequences (3,4,5), (0,3,6), (1,4,7), (0,4,8) and (1,3,9) so the next term is 10.
		

Crossrefs

Programs

  • Python
    # Program that generates all values of a(x) less than a given input n.
    def a(n):
          seq=[0, 1]
          for x in range(2, n+1):
              c=0
              for y in seq:
                  if (x+y)/2 not in seq:
                      if (x*y)**0.5 not in seq[1:]:
                          if (2*x*y)/(x+y) not in seq[1:]:
                              c+=1
              if c==len(seq):
                  seq.append(x)
          return seq

A289206 Greedy strictly increasing sequence starting at a(1)=1 avoiding both arithmetic and geometric progressions of length 3.

Original entry on oeis.org

1, 2, 5, 6, 12, 13, 15, 16, 32, 33, 35, 39, 40, 42, 56, 81, 84, 85, 88, 90, 93, 94, 108, 109, 113, 115, 116, 159, 189, 207, 208, 222, 223, 232, 235, 240, 243, 244, 249, 250, 252, 259, 267, 271, 289, 304, 314, 318, 325, 340, 342, 397, 504, 508, 511, 531, 549
Offset: 1

Views

Author

Roderick MacPhee, Jun 28 2017

Keywords

Comments

By avoiding arithmetic progressions, at most 2/3 of the numbers up to a(n) are in the sequence. The sequence doesn't contain 3 consecutive powers in arithmetic progression for any base c.
Where a(n)+1 = a(n+1): 1, 3, 5, 7, 9, 12, 17, 21, 23, 26, 30, 32, 37, 39, etc. - Robert G. Wilson v, Jul 02 2017

Examples

			5 is in the sequence because 1,2,5 is neither an arithmetic progression nor a geometric progression.
		

Crossrefs

Programs

  • PARI
    {my(a=[1,2]);
    for(x=3,100,
    if(#select(r->#select(q->q==2*r,b)==0,b=vecsort(apply(r->x-r,a)))==#a && #select(r->#select(q->q==r^2,b)==0,b=vecsort(apply(r->x/r,a)))==#a,a=concat(a,x)));a
    }
    
  • PARI
    first(n)=my(v=vector(n)); v[1]=1; for(k=2,n, my(avoid=List(),t,last=v[k-1]); for(i=2,k-1, for(j=1,i-1, t=2*v[i]-v[j]; if(t>last, listput(avoid, t)); if(denominator(t=v[i]^2/v[j])==1 && t>last, listput(avoid,t)))); avoid=Set(avoid); for(i=v[k-1]+1,v[k-1]+#avoid+1, if(!setsearch(avoid,i), v[k]=i; break))); v \\ Charles R Greathouse IV, Jun 29 2017

Formula

a(n) >= 3n/2 for n > 2.

Extensions

More terms from Alois P. Heinz, Jun 28 2017
Showing 1-2 of 2 results.