cp's OEIS Frontend

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.

A101324 Primes p such that p+1=C(q)=q-th composite and q is prime.

This page as a plain text file.
%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