OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..500
EXAMPLE
980 = 2*2*5*7*7 is here since 9+8 = 17 and 2+3+5+7 = 17.
MATHEMATICA
okQ[n_]:=Module[{totidn=Total[ IntegerDigits[n]], fctrs, mn, mx}, fctrs= Transpose[FactorInteger[n]][[1]]; mn=Min[fctrs]; mx=Max[fctrs]; Total[Prime[Range[PrimePi[mn], PrimePi[mx]]]]==totidn];
Select[ Range[2, 10000], okQ] (* Harvey P. Dale *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Nov 07 2002
EXTENSIONS
a(20)-a(38) from Donovan Johnson, Sep 24 2009
STATUS
approved