OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
<<NumberTheory`NumberTheoryFunctions` lst={}; Do[p=Prime[n]; If[ !SquareFreeQ[p-1]&&!SquareFreeQ[p+1]&&!SquareFreeQ[p-3]&&!SquareFreeQ[p+3]&&!SquareFreeQ[p-5]&&!SquareFreeQ[p+5], AppendTo[lst, p]], {n, 3*7!}]; lst
Select[Prime[Range[15000]], NoneTrue[#+{1, 3, 5, -1, -3, -5}, SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 05 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 21 2009
STATUS
approved