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 A339544 #9 Dec 08 2020 19:04:11 %S A339544 3,17,19,29,31,71,79,83,103,113,151,211,229,293,331,337,347,349,421, %T A339544 439,449,457,607,659,683,691,739,743,809,839,883,911,977,1039,1051, %U A339544 1193,1249,1277,1283,1303,1367,1439,1451,1499,1567,1597,1609,1663,1747,1753,1861,2089,2137,2273,2309,2311 %N A339544 Primes p such that A007088(p) mod p is prime. %H A339544 Robert Israel, <a href="/A339544/b339544.txt">Table of n, a(n) for n = 1..10000</a> %e A339544 a(3) = 19 because 19 = 10011_2 and 10011 mod 19 = 17 which is prime. %p A339544 filter:= proc(n) isprime(n) and isprime(convert(n,binary) mod n) end proc: %p A339544 select(filter, [seq(i,i=3..10000,2)]); %Y A339544 Cf. A007088. %K A339544 nonn,base %O A339544 1,1 %A A339544 _J. M. Bergot_ and _Robert Israel_, Dec 08 2020