OFFSET
1,1
LINKS
MAPLE
isA181604 := proc(p)
if isprime(p) and (isprime(p-2) or isprime(p+2)) then
if modp(p, 10) = 3 then
true;
else
false;
end if ;
else
false;
end if;
end proc: # R. J. Mathar, Feb 14 2017
MATHEMATICA
Select[Prime@Range@700, Mod[ #, 10] == 3 && (PrimeQ[ # - 2] || PrimeQ[ # + 2]) &] (* Robert G. Wilson v, Nov 06 2010 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Omar E. Pol, Nov 01 2010
EXTENSIONS
More terms from Robert G. Wilson v, Nov 06 2010
STATUS
approved