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 A111207 #12 May 10 2020 04:26:48 %S A111207 4,10,25,46,55,106,123,145,159,205,226,267,339,358,415,466,529,573, %T A111207 583,718,753,843,865,979,1077,1195,1243,1257,1293,1366,1405,1465,1473, %U A111207 1486,2098,2157,2206,2427,2455,2545,2563,2581,2599,2629,2809,2818,2998,3057 %N A111207 Numbers that are both Sophie Germain semiprimes and semi-Sophie Germain semiprimes. %C A111207 This is the intersection of the sequence of Sophie Germain semiprimes (A111153) and semi-Sophie Germain semiprimes (A111206). %H A111207 Amiram Eldar, <a href="/A111207/b111207.txt">Table of n, a(n) for n = 1..10000</a> %e A111207 a(4)=46 because 46 is the 4th semiprime such that 2*46+1=93 is a semiprime and both of its factors are Sophie Germain primes: 2*2+1=5 and 2*23+1=47. %t A111207 seqQ[n_] := AllTrue[{n, 2*n + 1}, PrimeOmega[#] == 2 &] && AllTrue[First /@ FactorInteger[n], PrimeQ[2*# + 1] &]; Select[Range[3000], seqQ] (* _Amiram Eldar_, May 10 2020 *) %Y A111207 Cf. A111153, A001358, A005384, A111206. %K A111207 nonn %O A111207 1,1 %A A111207 Christopher M. Tomaszewski (cmt1288(AT)comcast.net), Oct 24 2005 %E A111207 Extended by _Ray Chandler_, Oct 31 2005