login
Indices of primes in A095134(n).
0

%I #6 Jan 08 2013 12:19:55

%S 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,

%T 205,356,424,492,661,674,697,831,1687,2068,3422,3495,4183,4920,5128

%N Indices of primes in A095134(n).

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

%Y Cf. A095134.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, May 27 2004

%E a(36)-a(40) added by _James G. Merickel_, Jan 03 2013