OFFSET
1,1
COMMENTS
All these numbers are in A181595 because their abundance is 4, a proper divisor of m.
MATHEMATICA
Rest[2^(#-1) (2^#-5)&/@(Round[N[Log[#+5]/Log[2]]]&/@Select[Table[2^t-5, {t, 120}], PrimeQ])] (* Harvey P. Dale, Dec 16 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 06 2010
EXTENSIONS
571728 replaced with 521728 by R. J. Mathar, Dec 05 2010
STATUS
approved