A097530 Least k such that k*P(n)#-P(n+6) and k*P(n)#+P(n+6) are both primes with P(i)=i-th prime and P(i)#=i-th primorial.

10, 4, 1, 1, 3, 3, 12, 1, 4, 15, 15, 14, 15, 27, 4, 24, 4, 5, 69, 182, 140, 25, 38, 32, 176, 344, 267, 6, 262, 181, 95, 272, 232, 765, 155, 281, 292, 3, 135, 259, 100, 38, 2, 411, 182, 778, 214, 132, 228, 258, 139, 45, 192, 633, 778, 118, 669, 214, 970, 583, 611, 524

Offset

1,1

Links

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

Mathematica

Primorial[n_] := Product[ Prime[i], {i, n}]; f[n_] := Block[{k = 1, p = Primorial[n], q = Prime[n + 6]}, 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

Sequence in context: A038305 A089478 A028967 * A063565 A371918 A177390

Adjacent sequences: A097527 A097528 A097529 * A097531 A097532 A097533

Keyword

easy,nonn

Author

Pierre CAMI, Aug 27 2004

Extensions

More terms from Robert G. Wilson v, Aug 31 2004

Status

approved