A095138 Indices of primes in A095137(n).

1, 3, 4, 5, 6, 7, 17, 22, 25, 29, 34, 40, 58, 78, 99, 146, 249, 554, 767, 963

Offset

1,2

Links

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

Mathematica

f[n_] := Abs[ Product[ Prime[i], {i, 2, n, 2}] + Product[ Prime[i], {i, 1, n, 2}]]; f[1] = 2; Do[ If[ PrimeQ[ f[n]], Print[n]], {n, 1000}]

Crossrefs

Cf. A095137.

Sequence in context: A235324 A330373 A072599 * A026475 A101747 A355703

Adjacent sequences: A095135 A095136 A095137 * A095139 A095140 A095141

Keyword

nonn

Author

Robert G. Wilson v, May 28 2004

Status

approved