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,1

Links

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

Example

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.

Mathematica

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

Crossrefs

Sequence in context: A216535 A356054 A045434 * A070520 A018579 A006486

Adjacent sequences: A166564 A166565 A166566 * A166568 A166569 A166570

Keyword

nonn,base

Author

Vincenzo Librandi, Oct 28 2009

Status

approved