|
Search: id:A098170
|
|
|
| A098170 |
|
Smallest prime P(j) such that P(n)#/2 + 2*P(j) is prime with j > 1 except j=1 for n=1. |
|
+0
2
|
|
| 2, 5, 7, 11, 13, 19, 29, 31, 29, 31, 41, 41, 43, 83, 59, 83, 163, 97, 193, 89, 89, 173, 113, 107, 131, 157, 131, 109, 113, 467, 151, 239, 167, 263, 233, 211, 251, 167, 599, 199, 199, 211, 313, 241, 509, 887, 307, 227, 419, 479, 317, 269, 653, 281, 307, 277, 499
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Primorial[n_Integer] := Block[{k = Product[ Prime[ j], {j, n}]}, k]; f[n_] := Block[{p = Primorial[n]/2}, If[n == 1, j = 1, j = 2]; While[ !PrimeQ[p + 2Prime[j]], j++ ]; Prime[j]]; Table[ f[n], {n, 57}] (from Robert G. Wilson v Sep 04 2004)
|
|
CROSSREFS
|
The j sequence is given in A098171.
Sequence in context: A039675 A074833 A045347 this_sequence A120330 A023216 A079449
Adjacent sequences: A098167 A098168 A098169 this_sequence A098171 A098172 A098173
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Pierre CAMI (pierrecami(AT)tele2.fr), Aug 30 2004
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 04 2004
|
|
|
Search completed in 0.002 seconds
|
