|
Search: id:A073413
|
|
|
| A073413 |
|
Numbers n such that number of divisors of n divides S(n), the Kempner-Smarandache function A002034. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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 this_sequence A046681 A163619 A166968
Adjacent sequences: A073410 A073411 A073412 this_sequence A073414 A073415 A073416
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Aug 23 2002
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 25 2002
|
|
|
Search completed in 0.002 seconds
|
