

A073413


Numbers n such that number of divisors of n divides S(n), the Kempner function A002034.


0



1, 2, 8, 9, 18, 45, 128, 243, 486, 625, 1215, 1250, 1701, 1875, 2673, 3750, 4375, 5000, 6561, 6875, 8125, 8750, 10625, 11875
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..24.


MATHEMATICA

S[n_] := Block[{k = 1}, While[ ! IntegerQ[k!/n], k++ ]; k]; Do[ If[ IntegerQ[ S[n]/DivisorSigma[0, n]], Print[n]], {n, 1, 3000}]


CROSSREFS

Cf. A000005, A002034.
Sequence in context: A126160 A118962 A096033 * A046681 A259672 A163619
Adjacent sequences: A073410 A073411 A073412 * A073414 A073415 A073416


KEYWORD

nonn


AUTHOR

Jason Earls (zevi_35711(AT)yahoo.com), Aug 23 2002


EXTENSIONS

More terms from Robert G. Wilson v, Aug 25 2002


STATUS

approved



