OFFSET
1,1
COMMENTS
12 is the minimal difference in A070195.
EXAMPLE
MATHEMATICA
Position[Differences @ Select[Range[10^6], SquareFreeQ[#] && And @@ PrimeQ[# + {-1, 1}] &], 12] //Flatten (* Amiram Eldar, May 27 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 26 2020
STATUS
approved