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