|
|
A007978
|
|
Least non-divisor of n.
|
|
33
|
|
|
2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Least k >= 2 such that sigma(n) divides sigma(n*k), where sigma is A000203. - Benoit Cloitre, Dec 01 2002
|
|
LINKS
|
|
|
FORMULA
|
a(n) < n for all n > 2.
a(2n + 1) = 2, a(2n) >= 3.
a(2^k) = 3 for k > 0.
a(n!) = prime(pi(n) + 1) for n >= 0, except for a(3!) = 4. (End)
Asymptotic mean: lim_{n->oo} Sum_{k=1..n} a(k) = 1 + A064859 (Farhi, 2009). - Amiram Eldar, Jun 29 2021
|
|
MAPLE
|
a:= proc(n) local k;
for k from 2 while n mod k = 0 do od:
k
end proc:
|
|
MATHEMATICA
|
Table[k := 1; While[Mod[n, k] == 0, k++]; k, {n, 2000}] (* Clark Kimberling, Jun 16 2012 *)
Join[{2, 3}, Table[Complement[Range[n], Divisors[n]][[1]], {n, 3, 100}]] (* Alonso del Arte, Sep 23 2017 *)
|
|
PROG
|
(Haskell)
import Data.List ((\\))
a007978 = head . ([1..] \\) . a027750_row
(PARI) a(n) = {my(k=2); while(!(n % k), k++); k; } \\ Michel Marcus, Sep 25 2017
(Python)
def a(n):
k = 2
while not n%k: k += 1
return k
(Python)
def A007978(n): return next(filter(lambda d:n%d, range(2, n))) if n>2 else n+1 # Chai Wah Wu, Feb 22 2023
|
|
CROSSREFS
|
Cf. also A266620 (least non-divisor of n!).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|