OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
N:= 1000: # to get the first N terms
count:= 0:
p:= 2:
while count < N do
pp:= nextprime(p);
if numtheory:-issqrfree(p+pp) then
count:= count+1;
A[count]:= p+pp;
fi;
p:= pp;
od:
seq(A[i], i=1..N);
# Robert Israel, Jul 20 2014
MATHEMATICA
Select[Table[Prime[n] + Prime[n + 1], {n, 300}], SquareFreeQ] (* Vladimir Joseph Stephan Orlovsky, Feb 19 2012 *)
PROG
(PARI) p=2; forprime(q=3, 1e4, if(issquarefree(p+q), print1(p+q", ")); p=q) \\ Charles R Greathouse IV, Feb 08 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 06 2012
STATUS
approved