OFFSET
1,2
EXAMPLE
a(1)=4-3=1, a(2)=6-4=2, a(3)=8-4=4.
MATHEMATICA
With[{comps=Rest[Complement[Range[100], Prime[Range[PrimePi[100]]]]]}, #-DivisorSigma[0, #]&/@comps] (* Harvey P. Dale, Dec 16 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 26 2009
EXTENSIONS
Formula and two entries corrected by R. J. Mathar, May 21 2010.
STATUS
approved