This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079578 #17 Apr 13 2025 03:19:07
%S A079578 3,5,5,7,7,11,9,11,11,13,13,17,15,17,17,19,19,23,21,23,23,25,25,29,27,
%T A079578 29,29,31,31,37,33,35,35,37,37,41,39,41,41,43,43,47,45,47,47,49,49,53,
%U A079578 51,53,53,55,55,59,57,59,59,61,61,67,63,65,65,67,67,71,69,71,71,73,73
%N A079578 Least number coprime to n and greater than n+1.
%H A079578 Reinhard Zumkeller, <a href="/A079578/b079578.txt">Table of n, a(n) for n = 1..10000</a>
%F A079578 a(n) = n + A053669(n).
%F A079578 a(n) = (A116934(n) - n)/A116933(n). - _Reinhard Zumkeller_, Feb 27 2006
%F A079578 Sum_{k=1..n} a(k) ~ n^2 / 2 + c * n, where c = A249270. - _Amiram Eldar_, Apr 13 2025
%t A079578 a[n_] := Module[{p = 2}, While[Divisible[n, p], p = NextPrime[p]]; n + p]; Array[a, 100] (* _Amiram Eldar_, Apr 13 2025 *)
%o A079578 (Haskell)
%o A079578 a079578 n = head [m | m <- [n + 2 ..], gcd m n == 1]
%o A079578 -- _Reinhard Zumkeller_, Oct 01 2014
%Y A079578 Cf. A053669, A116933, A116934, A249270.
%K A079578 nonn,easy
%O A079578 1,1
%A A079578 _Reinhard Zumkeller_, Jan 24 2003