|
Search: id:A098874
|
|
| |
|
| 3, 18, 12, 108, 24, 72, 168, 384, 360, 456, 720, 1824, 1368, 3192, 19260, 6840, 13680, 21000, 80940, 9576, 50616, 39120, 220248, 167808, 264264, 193800, 242820, 181944, 117360, 424080, 456456, 848160, 124488, 2756520, 1618344, 3269112, 2229840
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
k is the first occurrence of -n in A098018.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
f[n_] := Plus @@ MoebiusMu[ Drop[ Divisors[n], 1] - 1]; s = Table[0, {100}]; Do[ a = f[n]; If[ !Positive[a] && a > -101 && s[[ -a]] == 0, s[[ -a]] = n], {n, }]; s
|
|
CROSSREFS
|
Cf. A098018, A098869.
Sequence in context: A120647 A131635 A007475 this_sequence A077104 A073815 A103715
Adjacent sequences: A098871 A098872 A098873 this_sequence A098875 A098876 A098877
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 03 2004
|
|
|
Search completed in 0.002 seconds
|
