A141669 Select all integers from the list (p(k)-k)/tau(k), k>=1; p = A000041, tau = A000005.

0, 0, 0, 1, 4, 7, 8, 44, 43, 140, 245, 616, 615, 2268, 3069, 3712, 10800, 22271, 31609, 26378, 59973, 164939, 560722, 250906, 1339811, 888569, 2348567, 3092808, 11669193, 7541818, 8565719, 24997918, 16028067, 20502521, 26162831, 215574641, 169975773, 266036084

Offset

1,5

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

h[n_] = (PartitionsP[n] - n)/DivisorSigma[0, n]; Flatten[Table[If[IntegerQ[h[n]], h[n], {}], {n, 1, 100}]]

Crossrefs

Cf. A000005, A000041.

Sequence in context: A344781 A160629 A093105 * A190967 A004787 A210617

Adjacent sequences: A141666 A141667 A141668 * A141670 A141671 A141672

Keyword

nonn

Author

Roger L. Bagula and Gary W. Adamson, Sep 06 2008

Extensions

Edited by the Associate Editors of the OEIS, Jun 07 2018

Status

approved