A109959 Numbers n such that concatenating n and the sum of primes dividing n (counting multiplicity) produces a prime.
10, 12, 14, 22, 38, 82, 90, 92, 96, 116, 117, 122, 134, 147, 158, 165, 178, 198, 210, 218, 236, 262, 274, 304, 314, 332, 333, 352, 358, 360, 369, 387, 390, 399, 420, 448, 454, 478, 482, 496, 522, 561, 562, 603, 605, 622, 637, 639, 640, 651, 694, 704, 714, 720
Offset: 1
Examples
a(5)=38 because 38=2*19 and 19+2=21 and 3821 is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[2,1000],PrimeQ[FromDigits[Join[IntegerDigits[#], IntegerDigits[ Total[Times@@@FactorInteger[#]]]]]]&] (* Harvey P. Dale, Aug 10 2012 *)
Comments