%I #9 Jun 14 2013 15:59:07
%S 10,15,23,31,41,59,71,83,97,109,131,143,159,173,187,199,211,223,235,
%T 251,269,287,301,311,319,329,349,371,395,407,439,457,471,487,503,519,
%U 533,551,565,581,589,607,633,661,679,689,701,713,731,749,771,789,803
%N Squarefree sums of 3 successive primes.
%H Vincenzo Librandi, <a href="/A207637/b207637.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[Prime[n] + Prime[n + 1] + Prime[n + 2], {n, 300}], SquareFreeQ]
%o (PARI) p=2;q=3;forprime(r=5,1e4,if(issquarefree(t=p+q+r),print1(t", "));p=q;q=r) \\ _Charles R Greathouse IV_, Jun 14 2013
%Y Cf. A206329.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 19 2012