|
|
A157676
|
|
Numbers n such that n + (product of digits of n) is prime.
|
|
3
|
|
|
1, 21, 23, 27, 29, 61, 67, 81, 83, 101, 103, 107, 109, 161, 163, 169, 233, 239, 253, 259, 283, 289, 293, 299, 307, 329, 341, 343, 347, 349, 361, 401, 409, 431, 437, 439, 441, 443, 449, 471, 473, 477, 493, 499, 503, 509, 529, 563, 569, 601, 607, 611, 613, 617
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(21) = 21 + (2)(1) = 23 (prime). a(67) = 67 + (6)(7) = 109 (prime). a(169) = 169 + (1)(6)(9) = 223 (prime).
|
|
MATHEMATICA
|
fQ[n_] := PrimeQ[n + Times @@ IntegerDigits@n]; Select[ Range@1000, fQ@# &] (* Robert G. Wilson v, May 04 2009 *)
|
|
PROG
|
(PARI) dprod(n)=n=digits(n); prod(i=1, #n, n[i])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|