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 A341061 #8 Feb 08 2021 02:46:40 %S A341061 5,28,44,51,58,61,63,90,93,108,129,136,145,148,186,208,234,235,241, %T A341061 247,262,272,277,278,300,306,310,314,316,321,329,335,379,384,386,414, %U A341061 428,446,448,449,475,480,492,514,535,537,546,548,572,580,599,609,611,616,618,626,660,670,673,680,683 %N A341061 Numbers k such that A340179(k) is prime. %H A341061 Robert Israel, <a href="/A341061/b341061.txt">Table of n, a(n) for n = 1..3000</a> %e A341061 a(3) = 44 is a term because A340179(44) = 211 is prime. %p A341061 f:= proc(n) local C, s, c; %p A341061 C:=select(t -> igcd(t, n) = 1, [$1..n-1]); %p A341061 s:= convert(C, `+`); %p A341061 add(s mod c, c = C) %p A341061 end proc: %p A341061 select(t -> isprime(f(t)), [$1..1000]); %Y A341061 Cf. A340179, A341059, A341060. %K A341061 nonn %O A341061 1,1 %A A341061 _J. M. Bergot_ and _Robert Israel_, Feb 04 2021