A090189 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A090189

Least k such that k*p(n)#-p(n+1) is prime, where p(i)# denotes the i-th primorial and p(i) denotes the i-th prime.

3, 2, 1, 1, 1, 1, 2, 1, 3, 5, 2, 4, 6, 3, 5, 7, 26, 5, 7, 11, 10, 1, 1, 1, 11, 5, 3, 8, 3, 20, 14, 4, 2, 39, 1, 16, 4, 6, 3, 56, 8, 7, 17, 14, 4, 21, 7, 13, 13, 22, 30, 10, 22, 6, 2, 43, 3, 17, 26, 21, 32, 10, 28, 30, 15, 28, 22, 74, 23, 33, 11, 8, 1, 4, 3, 5, 2, 29, 3, 68, 36, 14, 1, 133, 4

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

k*p(n)#-p(n+1) is the greatest prime < k*p(n)#-p(n+1)-1 and if k*p(n)#-p(n+1)-1 is not prime it is the greatest prime < k*p(n)#-p(n+1) P is given in one other sequence

LINKS

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

EXAMPLE

1*2*3*5*7*11*13-17=30013, 1*p(6)#-p(7)=30013, 1 is the least k for n=6

30013 is prime

a(7)=2 since 2*17#-19 = 1021001 is prime.

PROG

(PARI) primorial(n) = prod(i=1, primepi(n), prime(i)) A090189(n) = {local(k, a, b); k=1; a=primorial(prime(n)); b=prime(n+1); while(!isprime(a*k-b), k++); k}

CROSSREFS

Sequence in context: A172083 A337199 A344879 * A227141 A284997 A369367

Adjacent sequences: A090186 A090187 A090188 * A090190 A090191 A090192

KEYWORD

base,nonn

AUTHOR

Pierre CAMI, Jan 21 2004

EXTENSIONS

a(7) corrected by Michael B. Porter, Jan 29 2010

STATUS

approved