|
%I #10 Nov 30 2014 11:51:28
%S 7,11,13,17,23,29,31,37,53,59,67,71,79,89,97,101,139,173,179,193,199,
%T 227,251,271,277,313,331,347,359,397,401,419,449,457,479,491,557,607,
%U 613,619,653,659,673,683,727,739,751,757,761,809,811,821,863,877,1093
%N Those primes p where p+{the number of divisors of (p+1)} is prime.
%H Harvey P. Dale, <a href="/A175412/b175412.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]],PrimeQ[#+DivisorSigma[0,#+1]]&] (* _Harvey P. Dale_, Nov 30 2014 *)
%K nonn
%O 1,1
%A _Leroy Quet_, May 07 2010
%E Extended by _D. S. McNeil_ and _Jon E. Schoenfield_, May 10 2010
|
