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

Author

Robert G. Wilson v, May 27 2004

Keywords

• nonn

Crossrefs

Cf. A095134.

Programs

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}]

Extensions

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