OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
17061 is in the sequence because 17061=3*11*11*47, sopf(17061)=3+11+47=61, substring of 17061.
MATHEMATICA
Select[Range[2000], CompositeQ[#]&&SequenceCount[IntegerDigits[#], IntegerDigits[ Total[ FactorInteger[#][[All, 1]]]]]>0&] (* Harvey P. Dale, Apr 29 2018 *)
PROG
(PARI) sopf(n)= {s=0; f=factor(n); for(i=1, matsize(f)[1], s+=f[i, 1]); return(s) }
Indigit(a, b)={ u=Vec(Str(a)); v=Vec(Str(b)); indi=0; la=#u; lb=#v; i=1; while(i<=la-lb+1&&indi==0, d=0; for(x=1, lb, if(v[x]==u[i+x-1], d+=1)); indi=(d==lb) ; i+=1); return(indi)}
{ for(i=1, 10^4, if(Indigit(i, sopf(i))&&isprime(i)==0, print(i)))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antonio Roldán, May 07 2013
STATUS
approved