|
| |
|
|
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 A163619 A166968
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
|
| |
|
|
