OFFSET
1,1
COMMENTS
A(n) is odd deficient or perfect (A000396).
If definition had not excluded prime numbers, then terms of A208270 would have been included. - Michel Marcus, Dec 18 2013
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
EXAMPLE
1031311 is in the sequence because 1031311=10211*101, Sum of aliquot parts: 1+101+10211=10313, substring of 1031311.
PROG
(PARI) 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^7, k=sigma(i, 1)-i; if(indigit(i, k)&&isprime(i)==0, print(i)))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antonio Roldán, May 07 2013
STATUS
approved