%I #6 Sep 07 2012 15:22:59
%S 1,3,6,10,12,13,18,21,26,29,30,33,37,40,42,44,50,55,59,60,65,66,71,74,
%T 77,78,79,80,82,84,88,89,97,100,104,110,112,113,116,119,121,122,123,
%U 127,130,134,135,136,139,142,145,147,148,151,158,159,160,165,168,169,172
%N Numbers n such that n-th prime + 1 is squarefree.
%H Harvey P. Dale, <a href="/A120068/b120068.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n)=primepi(A049097(n))
%t Select[Range[200],SquareFreeQ[Prime[#]+1]&] (* _Harvey P. Dale_, Sep 07 2012 *)
%Y Cf. A049097.
%K nonn
%O 1,2
%A _Zak Seidov_, Aug 15 2006
|