OFFSET
1,1
COMMENTS
Do any numbers x exist that never occur in this sequence? Can this be proven for any particular value of x? For example, does 96 occur in this sequence? Note that 96 occurs four times as a value of sigma among the initial 100 composites.
PROG
(PARI) composite(n) = my(i=0); forcomposite(c=1, , i++; if(i==n, return(c)))
mcv(v) = my(w=vecsort(v, , 8), count=vector(#w), ind=0, i=0); for(x=1, #w, for(y=1, #v, if(w[x]==v[y], count[x]++))); for(k=1, #count, if(count[k]==vecmax(count), ind=k; i++)); if(i > 1, return(0), return(w[ind]))
a305671(n) = my(v=[]); for(k=1, n, v=concat(v, sigma(composite(k)))); mcv(v)
terms(n) = my(x=0, k=1, i=0); while(1, if(a305671(k) > 0, print1(a305671(k), ", "); i++); if(i==n, break); while(a305671(k) > 0, k++); while(a305671(k)==0, k++))
terms(11) \\ Print initial 11 terms of the sequence
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Jun 08 2018
STATUS
approved