A166566 Primes p such that product of digits - 1 is prime.

3, 13, 23, 29, 31, 41, 43, 61, 67, 83, 89, 113, 127, 131, 163, 167, 181, 223, 233, 239, 241, 269, 271, 277, 283, 293, 311, 347, 349, 383, 421, 431, 439, 443, 457, 461, 463, 467, 479, 487, 523, 541, 547, 563, 569, 613, 617, 619, 631, 641, 643, 647, 653, 659

Offset

1,1

Links

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

Example

23 is in sequence because 2*3-1=5; 83 because 8*3-1=23; 163 because 1*6*3-1=17.

Mathematica

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

Crossrefs

Sequence in context: A299645 A180970 A135580 * A011533 A277965 A043501

Adjacent sequences: A166563 A166564 A166565 * A166567 A166568 A166569

Keyword

nonn,base

Author

Vincenzo Librandi, Oct 28 2009

Extensions

Corrected (3, 29 inserted) by R. J. Mathar, Nov 30 2009

Status

approved