login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071572 Least k such that nextprime(k*prime(n)) - k*prime(n) is nonprime. 1
1, 2, 2, 1, 2, 1, 5, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 4, 1, 1, 1, 5, 1, 1, 2, 1, 1, 1, 1, 5, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

The first time a value of m appears is when n equals 1, 2, 20, 45, 7. I can find no value greater than 5 for n's up through 12,500,000.

LINKS

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

MATHEMATICA

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := Block[{k = 1}, While[ PrimeQ[ NextPrim[k*Prime[n]] - k*Prime[n]], k++ ]; k]; Table[ f[n], {n, 1, 105}]

CROSSREFS

Sequence in context: A144387 A030768 A051480 * A172176 A285930 A300480

Adjacent sequences:  A071569 A071570 A071571 * A071573 A071574 A071575

KEYWORD

nonn

AUTHOR

David W. Wilson and Robert G. Wilson v, May 31 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 17 00:44 EST 2019. Contains 319206 sequences. (Running on oeis4.)