login
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
OFFSET
1,1
LINKS
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
KEYWORD
base,nonn
AUTHOR
Umut Uludag, Jan 29 2010
STATUS
approved