editing
approved
editing
approved
Select[Range[3200], AllTrue[Times@@Divisors[#]+{(#+1), (-#-1)}, PrimeQ]&] (* Harvey P. Dale, Aug 30 2021 *)
approved
editing
proposed
approved
editing
proposed
Divisors of 6: 1,2,3,6. As 6*3*2*1 = 36, 36 - 6 - 1 = 29 is prime, 6*3*2*1 = and 36 + 6 + 1 = 43 is prime, 6 is a term.
proposed
editing
editing
proposed
Numbers n k such that prod_(Product_{d|nk} d) -n k - 1 and (Product_{d|k} d) +n k + 1 are primes.
Divisors of 6: 1,2,3,6. As 6*3*2*1 = 36-6-1 = 29 is prime, 6*3*2*1 = 36+6+1 = 43 is prime, 6 is a term.
Cf. A118369.
approved
editing
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Dec 14 2009
Numbers n such that prod_{d|n} d-n-1 and d+n+1 are primes.
4, 6, 9, 14, 18, 21, 27, 57, 69, 77, 141, 155, 161, 194, 261, 381, 428, 551, 579, 620, 626, 671, 672, 704, 720, 755, 1007, 1349, 1506, 1529, 1611, 1659, 1707, 1710, 1814, 1982, 1986, 1994, 2036, 2037, 2157, 2429, 2651, 2714, 2771, 2783, 2966, 3039, 3044, 3101
1,1
Divisors of 6: 1,2,3,6. As 6*3*2*1=36-6-1=29 is prime, 6*3*2*1=36+6+1=43 is prime, 6 is a term.
f[n_]:=PrimeQ[Times@@Divisors[n]-n-1]&&PrimeQ[Times@@Divisors[n]+n+1]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 7!}]; lst
Cf. A118369
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 14 2009
approved