login
A071545
Smallest k such that n+k divides (k+1)!+k!.
1
5, 1, 3, 4, 4, 2, 3, 4, 5, 5, 7, 3, 7, 4, 5, 5, 7, 6, 5, 4, 7, 8, 5, 6, 5, 6, 3, 7, 7, 5, 9, 4, 7, 6, 5, 9, 5, 7, 6, 8, 7, 6, 11, 4, 9, 9, 7, 8, 7, 10, 5, 8, 7, 6, 5, 7, 9, 6, 11, 10, 9, 8, 7, 8, 5, 6, 8, 4, 11, 10, 9, 8, 7, 6, 9, 8, 7, 12, 5, 10, 9, 8, 7, 6, 11, 10, 9, 8, 11, 6, 13, 8, 11, 11, 10, 9, 8
OFFSET
1,1
LINKS
MATHEMATICA
sk[n_]:=Module[{k=1}, While[!Divisible[(k+1)!+k!, n+k], k++]; k]; Array[sk, 100] (* Harvey P. Dale, Aug 22 2012 *)
CROSSREFS
Sequence in context: A343235 A153457 A057778 * A197578 A115370 A327968
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 30 2002
STATUS
approved