A166567 Primes p such that sum of digits - 1 is prime.

3, 13, 17, 31, 53, 59, 71, 103, 107, 149, 167, 211, 233, 239, 251, 257, 293, 347, 383, 389, 419, 431, 479, 491, 503, 509, 521, 563, 569, 587, 617, 653, 659, 677, 701, 743, 761, 839, 857, 929, 941, 947, 983, 1021, 1049, 1061, 1151, 1193, 1201

Offset: 1

Author

Vincenzo Librandi, Oct 28 2009

Keywords

• nonn
• base

Examples

			13 belongs to this sequence because 3+1-1=2 is prime; 17 because 1+7-1=7; 233 because 2+3+3-1=7; 653 because 6+5+3-1=13.
		

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Programs

Mathematica

Select[Prime[Range[200]], PrimeQ[Plus@@ IntegerDigits[#] - 1]&] (* Vincenzo Librandi, Sep 14 2012 *)