

A172195


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 nth prime), A053666 (Product of digits of nth prime). For the sequence terms, abs(A007605(n)  A053666(n)) is prime.
Sequence in context: A127956 A166088 A295490 * A161724 A046502 A255204
Adjacent sequences: A172192 A172193 A172194 * A172196 A172197 A172198


KEYWORD

base,nonn


AUTHOR

Umut Uludag, Jan 29 2010


STATUS

approved



