|
Search: id:A071572
|
|
|
| A071572 |
|
Least k such that nextprime(k*prime(n)) - k*prime(n) is nonprime. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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.
|
|
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: A109909 A030768 A051480 this_sequence A060256 A125916 A100244
Adjacent sequences: A071569 A071570 A071571 this_sequence A071573 A071574 A071575
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 31 2002
|
|
|
Search completed in 0.002 seconds
|
