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 A236418 #39 Jan 02 2022 16:08:38 %S A236418 13,23,43,53,71,83,107,257,269,313,1093,2659,2851,3527,8243,20173, %T A236418 20717,24329,26161,26237,31583,53611,60719,74717,83401,118259,118369, %U A236418 130817,133811,145109,152381,169111,178613,183397,205963 %N A236418 Primes p with A047967(p) also prime. %C A236418 According to the conjecture in A236417, this sequence should have infinitely many terms. %H A236418 Zhi-Wei Sun, <a href="/A236418/b236418.txt">Table of n, a(n) for n = 1..42</a> %e A236418 a(1) = 13 with 13 and A047967(13) = 83 both prime. %t A236418 pq[n_]:=PrimeQ[n]&&PrimeQ[PartitionsP[n]-PartitionsQ[n]] %t A236418 n=0;Do[If[pq[m],n=n+1;Print[n," ",m]],{m,1,10000}] %t A236418 Select[Prime[Range[20000]],PrimeQ[PartitionsP[#]-PartitionsQ[#]]&] (* _Harvey P. Dale_, Jan 02 2022 *) %Y A236418 Cf. A000040, A047967, A234530, A234569, A234644, A235344, A235346, A236413, A236417, A236419, A236440. %K A236418 nonn %O A236418 1,1 %A A236418 _Zhi-Wei Sun_, Jan 25 2014