login
Squarefree sums of 3 successive primes.
1

%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