1,2
a(n)=DivisorSigma[0, n]*PartitionsP[n] - PartitionsP[n].
f[n_] = DivisorSigma[0, n]*PartitionsP[n] - PartitionsP[n]; Table[f[n], {n, 1, 30}]
Cf. A000005, A000041.
Sequence in context: A163767 A128531 A123167 this_sequence A074068 A055655 A007090
Adjacent sequences: A141667 A141668 A141669 this_sequence A141671 A141672 A141673
nonn,uned
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 06 2008
Search completed in 0.002 seconds