|
|
A291423
|
|
The arithmetic function u(n,4,2).
|
|
0
|
|
|
7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 4, 2], {n, 1, 70}]
Table[With[{c=Divisors[n]}, Min[(2*Ceiling[4/c]-1)*c]], {n, 100}] (* Harvey P. Dale, Feb 10 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|