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 A101324 #7 Mar 17 2025 11:13:08 %S A101324 7,13,19,29,43,53,61,107,113,181,193,229,251,317,337,383,433,463,491, %T A101324 601,827,857,887,997,1033,1061,1163,1193,1307,1373,1531,1693,1699, %U A101324 1721,1789,1811,1831,1931,2003,2029,2267,2339,2347 %N A101324 Primes p such that p+1=C(q)=q-th composite and q is prime. %C A101324 In general P(k)=k-th prime=k+n where n is the index of the composite P(k)+1 (k>=2) %H A101324 Harvey P. Dale, <a href="/A101324/b101324.txt">Table of n, a(n) for n = 1..1000</a> %e A101324 a(5)=43 because 43+1=44=C(29) and 29 is prime. %t A101324 Module[{nn=3000,cmps,pcmps,c},cmps=Select[Range[nn],CompositeQ];pcmps=Thread[{Range[Length[cmps]],cmps}];c=Select[pcmps,PrimeQ[ #[[1]]]&][[;;,2]]; Select[ Prime[ Range[ nn]],MemberQ[c,#+1]&]]//Rest (* _Harvey P. Dale_, Mar 17 2025 *) %Y A101324 Cf. A100718. %K A101324 nonn %O A101324 1,1 %A A101324 _Robin Garcia_, Dec 24 2004