login
A116933
Smallest k greater than 0 such that n+k*p is a prime, where p is the smallest coprime greater than n+1.
3
2, 1, 2, 1, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 4, 3, 6, 1, 2, 1, 2, 1, 2, 1, 2, 3, 10, 1, 8, 1, 2, 1, 2, 1, 2, 5, 4, 1, 8, 1, 2, 1, 4, 7, 2, 3, 8, 1, 2, 1, 2, 1, 2, 1, 4, 3, 4, 3, 2, 1, 4, 1, 2, 1, 2, 1, 8, 1, 2, 9, 6, 1, 2, 1, 2, 3, 8, 7, 2, 1, 10, 1, 6, 1, 4, 3, 4, 1, 2, 7, 2, 7, 2, 1, 6, 1, 6, 1, 4, 3, 2, 11, 2, 1
OFFSET
1,1
COMMENTS
a(n) = (A116934(n) - n)/A079578(n).
LINKS
PROG
(Haskell)
a116933 n = head [k | k <- [1..], a010051' (n + k * a079578 n) == 1]
-- Reinhard Zumkeller, Oct 01 2014
CROSSREFS
Sequence in context: A216320 A308455 A214716 * A354060 A194448 A238950
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 27 2006
STATUS
approved