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 A339542 #7 Dec 08 2020 21:15:37 %S A339542 2,13,19,37,71,73,127,163,167,181,271,293,307,367,431,433,457,503,569, %T A339542 631,659,811,907,983,1009,1087,1153,1171,1229,1373,1399,1409,1423, %U A339542 1483,1487,1511,1597,1777,1801,1861,1867,1999,2017,2039,2053,2143,2239,2273,2297,2341,2383,2437,2477,2521,2659 %N A339542 Primes p such that A339541(p) is prime. %C A339542 Primes p such that p + A138530(p, A007953(p)) is prime. %H A339542 Robert Israel, <a href="/A339542/b339542.txt">Table of n, a(n) for n = 1..10000</a> %e A339542 a(5) = 71 is in the sequence because sod(71,10) = 8, sod(71,8) = 8 (since 71 = 107_8), and 71+8=79 is prime. %p A339542 sod:= proc(x,b) if b=1 then x else convert(convert(x,base,b),`+`) fi end proc: %p A339542 select(p -> isprime(p+sod(p,sod(p,10))), [seq(ithprime(i),i=1..1000)]); %Y A339542 Cf. A007953, A138530, A339541. %K A339542 nonn,base %O A339542 1,1 %A A339542 _J. M. Bergot_ and _Robert Israel_, Dec 08 2020