OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[Prime[n] + Prime[n + 1] + Prime[n + 2], {n, 300}], SquareFreeQ]
PROG
(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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 19 2012
STATUS
approved