|
|
A097532
|
|
Least k such that k*P(n)#-P(n+8) and k*P(n)#+P(n+8) are both primes with P(i)=i-th prime and P(i)#=i-th primorial.
|
|
0
|
|
|
15, 7, 4, 2, 1, 2, 2, 33, 9, 29, 3, 4, 19, 30, 21, 138, 22, 32, 110, 56, 43, 18, 274, 184, 10, 105, 50, 16, 75, 299, 5, 303, 290, 254, 131, 146, 78, 73, 15, 54, 581, 304, 41, 13, 93, 1032, 616, 327, 821, 595, 770, 131, 437, 307, 70, 761, 761, 2630, 158, 604, 656, 1006
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Primorial[n_] := Product[ Prime[i], {i, n}]; f[n_] := Block[{k = 1, p = Primorial[n], q = Prime[n + 8]}, While[k*p - q < 2 || !PrimeQ[k*p - q] || !PrimeQ[k*p + q], k++ ]; k]; Table[ f[n], {n, 62}] (* Robert G. Wilson v, Aug 31 2004 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|