|
|
A291362
|
|
The arithmetic function u(n,2,7).
|
|
1
|
|
|
8, 2, 3, 2, 5, 2, 7, 2, 3, 2, 8, 2, 8, 2, 3, 2, 8, 2, 8, 2, 3, 2, 8, 2, 5, 2, 3, 2, 8, 2, 8, 2, 3, 2, 5, 2, 8, 2, 3, 2, 8, 2, 8, 2, 3, 2, 8, 2, 7, 2, 3, 2, 8, 2, 5, 2, 3, 2, 8, 2, 8, 2, 3, 2, 5, 2, 8, 2, 3, 2, 8, 2, 8, 2, 3, 2, 7, 2, 8, 2, 3, 2, 8, 2, 5, 2, 3, 2, 8, 2, 7, 2, 3, 2, 5, 2, 8, 2, 3, 2, 8, 2, 8, 2, 3
(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, 2, 7], {n, 1, 70}]
|
|
PROG
|
(PARI) A291362(n, m=2, h=7) = { my(p=0, k); fordiv(n, d, k = d*(h*ceil(m/d) - h + 1); if(!p || (k < p), p = k)); (p); }; \\ Antti Karttunen, Oct 01 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|