A095135 Indices of primes in A095134(n).

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 17, 22, 26, 29, 33, 37, 58, 75, 126, 127, 150, 205, 356, 424, 492, 661, 674, 697, 831, 1687, 2068, 3422, 3495, 4183, 4920, 5128

Offset

1,2

Links

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

Mathematica

f[n_] := 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, 2060}]

Crossrefs

Cf. A095134.

Sequence in context: A084384 A119885 A007964 * A135402 A135393 A299703

Adjacent sequences: A095132 A095133 A095134 * A095136 A095137 A095138

Keyword

nonn

Author

Robert G. Wilson v, May 27 2004

Extensions

a(36)-a(40) added by James G. Merickel, Jan 03 2013

Status

approved