|
|
A091896
|
|
Numbers n such that there exists no k for which the denominator of d(k)/k is n, where d = A000005 is the number-of-divisors function.
|
|
6
|
|
|
18, 30, 72, 112, 144, 243, 252, 288, 294, 336, 360, 396, 468, 504, 576, 612, 616, 625, 684, 726, 728, 792, 810, 828, 840, 936, 952, 960, 1014, 1044, 1064, 1116, 1224, 1250, 1260, 1288, 1332, 1350, 1368, 1386, 1440, 1476, 1548, 1568, 1584, 1624, 1638, 1656
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The number of terms <= 10^n: 0, 3, 28, 311, 3541, for n = 1, 2, 3, 4, 5.
Sequence A353011 lists the indices n such that A090395(k) > A090395(n) for all k > n. This allows one to know whether a given number is in this sequence or not. - M. F. Hasler, Apr 15 2022
|
|
LINKS
|
|
|
MATHEMATICA
|
a = Table[0, {2000}]; Do[m = n; b = Denominator[ DivisorSigma[0, n]/n]; If[b < 2001 && a[[b]] == 0, a[[b]] = n], {n, 1, 25000000}]; Select[ Range[2000], a[[ # ]] == 0 &]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|