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 A340736 #13 Jan 19 2021 09:12:02 %S A340736 5,19,83,89,151,167,107,71,233,163,173,359,523,317,751,569,613,587, %T A340736 941,823,2293,1741,1873,3541,3907,2179,7817,3907,2683,3433,6277,6577, %U A340736 4787,8807,9661,20051,9403,10267,23909,16927,8779,14437,14887,31231,18191,13883,14281,37987,38839,14629,22159 %N A340736 Prime values in A067439, in the order in which they appear. %C A340736 3907 occurs twice, as a(25) and a(28). Are there any others? %H A340736 Robert Israel, <a href="/A340736/b340736.txt">Table of n, a(n) for n = 1..10000</a> %F A340736 a(n) = A067439(A340731(n)). %e A340736 a(3) = 83 because 83 = A067439(25) is the third prime value to occur in A067439. %p A340736 f:= proc(n) local t, k; %p A340736 t:= add(`if`(igcd(n, k)=1, n mod k, 0), k=2..n-1); %p A340736 if isprime(t) then t fi %p A340736 end proc: %p A340736 map(f, [$1..1000]); %Y A340736 Cf. A067439, A340731. %K A340736 nonn %O A340736 1,1 %A A340736 _J. M. Bergot_ and _Robert Israel_, Jan 18 2021