OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
EXAMPLE
220 is included because 220 = 2*2*5*11 and 2+2+5+1+1 = 11, which is prime.
MATHEMATICA
cnpQ[n_]:=CompositeQ[n]&&PrimeQ[Total[Flatten[IntegerDigits/@(Table[ #[[1]], #[[2]]]&/@FactorInteger[n])]]]; Select[Range[250], cnpQ] (* Harvey P. Dale, Sep 15 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Sep 19 2001
STATUS
approved