OFFSET
1,1
COMMENTS
Numbers k with at least one pair of externally tangent circles with radius sqrt(2) and center (p,q) where p and q are prime, p + q = k and p <= q. - Wesley Ivan Hurt, Aug 11 2020
EXAMPLE
For n=10, the partition solutions are 3+7 and 5+5, giving p=3, q=7, p+2=5, q-2=5.
MAPLE
isA187797 := proc(n)
local i, p, q ;
for i from 1 do
p := ithprime(i) ;
q := n-p ;
if q <= p+2 then
return false;
end if;
if isprime(q) then
if isprime(p+2) and isprime(q-2) then
return true;
end if;
end if;
end do:
return false;
end proc:
for n from 4 to 600 do
if isA187797(n) then
printf("%d, ", n);
end if;
end do: # R. J. Mathar, Oct 03 2013
MATHEMATICA
Table[If[Sum[(PrimePi[i] - PrimePi[i - 1]) (PrimePi[2 n - i] - PrimePi[2 n - i - 1]) (PrimePi[i + 2] - PrimePi[i + 1]) (PrimePi[2 n - i - 2] - PrimePi[2 n - i - 3]), {i, n - 2}] > 0, 2 n, {}], {n, 100}] // Flatten (* Wesley Ivan Hurt, Apr 13 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Bob Gilson, Aug 30 2013
STATUS
approved