A175412 Those primes p where p+{the number of divisors of (p+1)} is prime.

7, 11, 13, 17, 23, 29, 31, 37, 53, 59, 67, 71, 79, 89, 97, 101, 139, 173, 179, 193, 199, 227, 251, 271, 277, 313, 331, 347, 359, 397, 401, 419, 449, 457, 479, 491, 557, 607, 613, 619, 653, 659, 673, 683, 727, 739, 751, 757, 761, 809, 811, 821, 863, 877, 1093

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[200]], PrimeQ[#+DivisorSigma[0, #+1]]&] (* Harvey P. Dale, Nov 30 2014 *)

Crossrefs

Sequence in context: A086843 A260714 A049481 * A173700 A067557 A103485

Adjacent sequences: A175409 A175410 A175411 * A175413 A175414 A175415

Keyword

nonn

Author

Leroy Quet, May 07 2010

Extensions

Extended by D. S. McNeil and Jon E. Schoenfield, May 10 2010

Status

approved