cp's OEIS Frontend

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.

A124676 a(n) = largest integer < n such that the positive integers <= a(n) and coprime to a(n) are also coprime to n.

This page as a plain text file.
%I A124676 #9 Sep 27 2019 12:39:11
%S A124676 1,2,2,4,2,6,6,6,4,10,6,12,6,3,14,16,12,18,10,6,10,22,18,20,12,24,14,
%T A124676 28,2,30,30,9,16,5,30,36,18,12,30,40,6,42,22,30,22,46,42,42,40,15,26,
%U A124676 52,48,10,42,18,28,58,30,60,30,42,62,10,6,66,34,21,4,70,66,72,36,60,38,7,12
%N A124676 a(n) = largest integer < n such that the positive integers <= a(n) and coprime to a(n) are also coprime to n.
%e A124676 The positive integers k, k <= 6, where the positive integers <= k and coprime to k are also coprime to 6, are 1,2,6. So a(6) = the largest of these < 6, which is 2.
%t A124676 f[n_] := Select[Range[n], GCD[ #, n] == 1 &];g[n_] := Select[Range[n - 1], Times @@ GCD[f[ # ], n] == 1 &];Max /@ Table[g[n], {n, 2, 80}] (* Ray Chandler, Dec 24 2006 *)
%Y A124676 Cf. A126260, A073353.
%K A124676 nonn
%O A124676 2,2
%A A124676 _Leroy Quet_, Dec 24 2006
%E A124676 Extended by _Ray Chandler_, Dec 24 2006