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!)
A239282 a(n) = A045917(n)*prime(n). 0
0, 3, 5, 7, 22, 13, 34, 38, 46, 58, 93, 111, 123, 86, 141, 106, 236, 244, 134, 213, 292, 237, 332, 445, 388, 303, 515, 321, 436, 678, 381, 655, 822, 278, 745, 906, 785, 815, 1169, 692, 895, 1448, 955, 772, 1773, 796, 1055, 1561, 681, 1374, 1864, 1195, 1446, 2008 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..54.

MATHEMATICA

(*Returns the various ways a number (presumed to be even) can be split as a sum of 2 Primes.*)

getGoldBachSplits[n_Integer] := Module[{i, splits = {}, a, b},

  (

   For[i = 1,

    Prime[i] < n,

    i++,

    a = Prime[i] ;

    b = n - Prime[i];

    If[PrimeQ[b],

     If[MemberQ[splits, {b, a}], Null,

      AppendTo[splits, {a, b}]],

     Null];

    ]; (*End For-loop...*)

   splits

   )

  ]

(* Now we generate our series...*)

series[n_] :=

Module[{}, (Table[Prime[i]*Length[getGoldBachSplits[2 i]], {i, 2, n}])]

CROSSREFS

Cf. A045917, A000040

Sequence in context: A163637 A228068 A182233 * A171015 A244571 A269721

Adjacent sequences:  A239279 A239280 A239281 * A239283 A239284 A239285

KEYWORD

nonn

AUTHOR

Raghavendra Ugare, Mar 14 2014

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 August 8 08:27 EDT 2020. Contains 336293 sequences. (Running on oeis4.)