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

Links

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

Mathematica

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

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.

Sequence in context: A347038 A166088 A295490 * A161724 A046502 A255204

Adjacent sequences: A172192 A172193 A172194 * A172196 A172197 A172198

Keyword

base,nonn

Author

Umut Uludag, Jan 29 2010

Status

approved