A172195 Prime numbers for which the absolute difference between the summation of its digits & the product of its digits is a prime.

29, 37, 43, 47, 53, 59, 67, 73, 79, 83, 97, 101, 113, 131, 151, 181, 191, 211, 223, 227, 229, 251, 281, 311, 313, 331, 401, 409, 443, 449, 461, 463, 467, 521, 601, 607, 641, 643, 647, 661, 683, 809, 811, 821, 863, 881, 883, 911, 1013, 1019, 1031

Offset: 1

Author

Umut Uludag, Jan 29 2010

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A007605 (Sum of digits of n-th prime), A053666 (Product of digits of n-th prime). For the sequence terms, abs(A007605(n) - A053666(n)) is prime.

Programs

Mathematica

dpQ[n_]:=Module[{idn=IntegerDigits[n]},PrimeQ[Abs[Total[idn]- Times@@ idn]]]; Select[Prime[Range[400]],dpQ] (* Harvey P. Dale, Feb 20 2014 *)