|
| |
|
|
A051346
|
|
Numbers n that can be written as n = k/d(k) in four or more ways, where d(k) = number of divisors of k.
|
|
8
|
|
|
|
11264, 14175, 28160, 44100, 46464, 51200, 64000, 82944, 95744, 96000, 107008, 109375, 109760, 116160, 129536, 151263, 162624, 163328, 174592, 192000, 208384, 224000, 230912, 239360, 242176, 242550, 246960, 264704, 267520, 281600, 286650, 290304, 298496, 302016
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Donovan Johnson, Table of n, a(n) for n = 1..1000
|
|
|
MATHEMATICA
|
(* Assuming 3*10^5 <= k <= 3*10^8 *) ClearAll[cnt]; cnt[_] = 0; Do[ If[IntegerQ[n = k/DivisorSigma[0, k]], cnt[n]++; If[cnt[n] >= 4, Print[{n, k, cnt[n]}]]], {k, 3*10^5, 3*10^8}]; Select[Range[310000], cnt[#] >= 4 &] (* Jean-François Alcover_, Sep 28 2012 *)
|
|
|
CROSSREFS
|
Cf. A051278, A051279, A051280, A217125, A217126, A217127.
Sequence in context: A104316 A064870 A051520 * A217125 A195654 A195649
Adjacent sequences: A051343 A051344 A051345 * A051347 A051348 A051349
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
David W. Wilson
|
|
|
STATUS
|
approved
|
| |
|
|
