OFFSET

2,1

COMMENTS

First differs from A014664 at n = 24.

a(n) is the smallest r such that p = prime(n) appears in row r of A060443 and r has not been the smallest such r for any previous p.

6 is not a term of the sequence, since 2^6-1 = 3^2 * 7, but 3 and 7 are already factors of 2^4-1 and 2^3-1 respectively.

Apart from 6, are there any other k > 1 that are not terms of the sequence?

LINKS

Felix Fröhlich, Table of n, a(n) for n = 2..10000

PROG

(PARI) nextk(p, k) = my(kk=k+1); while(Mod(2, p)^kk!=1, kk++); kk

isinvec(v, k) = for(x=1, #v, if(v[x]==k, return(1))); return(0)

addtovec(v, k) = my(w=vector(1)); w[1]=k; v=concat(v, w); v

addnextknotinvec(v, p) = my(kk=2); while(isinvec(v, kk), kk=nextk(p, kk)); addtovec(v, kk)

my(i=0, v=[], p=3); while(i < 50, v=addnextknotinvec(v, p); p=nextprime(p+1); i++); v

CROSSREFS

KEYWORD

nonn

AUTHOR

Felix Fröhlich, Mar 20 2016

STATUS

approved