OFFSET
1,1
COMMENTS
7^50+144 generates a 62 digit prime.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(5)=38 because 38=2*19 and 19+2=21 and 3821 is prime.
MATHEMATICA
Select[Range[2, 1000], PrimeQ[FromDigits[Join[IntegerDigits[#], IntegerDigits[ Total[Times@@@FactorInteger[#]]]]]]&] (* Harvey P. Dale, Aug 10 2012 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Jason Earls, Jul 06 2005
STATUS
approved