login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071259 Integer part of the arithmetic mean of the n-th prime p(n) and the n-th composite number C(n). 3
3, 4, 6, 8, 10, 12, 15, 17, 19, 23, 25, 29, 31, 33, 36, 39, 43, 44, 48, 51, 53, 56, 59, 62, 67, 70, 71, 74, 76, 79, 86, 89, 93, 94, 100, 101, 105, 109, 111, 115, 118, 120, 126, 128, 130, 132, 138, 145, 148, 149, 152, 156, 158, 163, 167, 170, 174, 176, 179, 182, 184 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

FORMULA

Floor [ (p(n) + C(n))/2]

a(n)=Floor[[A000040(n)+A002808(n)]/2]; Prime[n]>a(n)>Composite[n]

EXAMPLE

a(7) = {p(7) + C(7)}/2 = (17 + 14)/2 = 15.

p(9) = 23, C(9) = 16, average = 19.5, a(9) = 19.

MATHEMATICA

c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] Do[s=(Prime[n]+c[n])/2; If[IntegerQ[s], Print[s]], {n, 1, 256}]

IntegerPart[Mean[#]]&/@Module[{nn=100, cmps}, cmps=Select[Range[nn], CompositeQ]; Thread[{cmps, Prime[Range[Length[cmps]]]}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 24 2018 *)

CROSSREFS

Cf. A000040, A002808, A073432, A073433, A071260.

Sequence in context: A156624 A242932 A025201 * A231405 A092137 A206580

Adjacent sequences:  A071256 A071257 A071258 * A071260 A071261 A071262

KEYWORD

nonn

AUTHOR

Amarnath Murthy, May 30 2002

EXTENSIONS

More terms from Labos Elemer, Jul 31 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 8 05:46 EDT 2021. Contains 343653 sequences. (Running on oeis4.)