OFFSET
1,1
EXAMPLE
6(2+3+2=7), 14(2+7+2=11), 18(2+3+3+3=11), 24(2+2+2+3+4=13), 26(2+13+2=17), 30(2+3+5+3=13), 38(2+19+2=23), 56(2+2+2+7+4=17)
MATHEMATICA
fQ[n_] := Block[ {fi = Flatten[ Table[ First@#, {Last@#}] & /@ FactorInteger@n]}, !PrimeQ@n && PrimeQ[ Plus @@ fi + Length@ fi]]; Rest@ Select[ Range@ 400, fQ@# &] (* Robert G. Wilson v, Mar 14 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 12 2009, May 10 2009
EXTENSIONS
a(39)-a(56) from Robert G. Wilson v, Mar 14 2009
STATUS
approved