A073433 Value of [p(n)+c(n)]/2 when it is an integer; p(n) is n-th prime, c(n) is n-th composite.

3, 8, 17, 29, 36, 43, 53, 59, 70, 79, 93, 100, 109, 115, 128, 132, 148, 158, 167, 176, 184, 197, 204, 215, 222, 233, 247, 265, 274, 280, 288, 292, 301, 308, 319, 337, 346, 359, 368, 373, 380, 397, 401, 410, 419, 433, 448, 455, 466, 473, 496, 503, 507, 514

Offset: 1

Author

Labos Elemer, Jul 31 2002

Keywords

• nonn

Examples

			p(8)=19, c(8)=15, average=17, corresponds to 3rd term.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..2000

Crossrefs

Cf. A000040, A002808, A073432.

Programs

Mathematica

c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] Do[s=(Prime[n]+c[n])/2; If[IntegerQ[s], Print[s]], {n, 1, 256}]
Module[{nn=200,pr,cm,len},pr=Prime[Range[nn]];cm=Select[Range[ nn], CompositeQ]; len=Min[Length[pr],Length[cm]];Select[Total[#]/2&/@ Thread[ {Take[pr,len],Take[cm,len]}],IntegerQ]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 29 2019 *)

Formula

[A000040(n)+A002808(n)]/2 when it is an integer.