|
1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 1, 9, 3, 10, 7, 11, 3, 12, 5, 13, 9, 14, 3, 15, 3, 16, 11, 17, 7, 18, 5, 19, 13, 20, 5, 21, 5, 22, 15, 23, 5, 24, 7, 25, 17, 26, 7, 27, 11, 28, 19, 29, 7, 30, 7, 31, 21, 32, 13, 33, 9, 34, 23, 35
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,3
|
|
LINKS
|
|
|
MATHEMATICA
|
vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 8], {n, 2, 70}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|