|
|
A073413
|
|
Numbers n such that number of divisors of n divides S(n), the Kempner function A002034.
|
|
3
|
|
|
1, 2, 8, 9, 18, 45, 128, 243, 486, 625, 1215, 1250, 1701, 1875, 2673, 3750, 4375, 5000, 6561, 6875, 8125, 8750, 10625, 11875, 13122, 13125, 13750, 16250, 16875, 20625, 21250, 23750, 24375, 31875, 32768, 32805, 35625, 45927, 48125, 56875, 72171, 74375, 83125
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|