OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
isA007510 := proc(n) isprime(n) and not isprime(n+2) and not isprime(n-2) ; simplify(%) ; end proc:
isA176312 := proc(n) for d in numtheory[divisors](n) do if isA007510(d) and isA007510(n/d) then return true; end if; end do: return false; end proc:
for n from 1 to 1200 do if isA176312(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 20 2010:
MATHEMATICA
Select[Range[1000], PrimeOmega[#] == 2 && AllTrue[FactorInteger[#][[;; , 1]], ! PrimeQ[#1 - 2] && ! PrimeQ[#1 + 2] &] &] (* Amiram Eldar, Nov 30 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 15 2010
EXTENSIONS
Entries checked by R. J. Mathar, Apr 20 2010
STATUS
approved