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 A341059 #7 Feb 04 2021 20:49:01 %S A341059 1,2,3,4,6,8,11,12,15,17,27,48,92,6219,24310 %N A341059 Numbers k such that A340179(k) is a square. %e A341059 a(6) = 8 is a term because A340179(8) = 4 = 2^2. %p A341059 f:= proc(n) local C, s, c; %p A341059 C:=select(t -> igcd(t, n) = 1, [$1..n-1]); %p A341059 s:= convert(C, `+`); %p A341059 add(s mod c, c = C) %p A341059 end proc: %p A341059 select(t -> issqr(f(t)), [$1..7000]); %Y A341059 Cf. A340179, A341060, A341061. %K A341059 nonn,more %O A341059 1,2 %A A341059 _J. M. Bergot_ and _Robert Israel_, Feb 04 2021