OFFSET
1,1
COMMENTS
f(x) = sum of prime factors without multiplicity, so that f(1500) = 2+3+5 = 10.
MATHEMATICA
spf10Q[n_]:=Boole[PrimeQ[NestList[Total[FactorInteger[#][[All, 1]]]&, n, 10]]] == {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}; Select[Range[105*10^4], spf10Q] (* Harvey P. Dale, Aug 04 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved