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!)
A305126 Number of ways to express n^3 as average of two primes p1 < p2. 2
0, 2, 5, 3, 9, 19, 16, 22, 48, 37, 44, 89, 55, 80, 188, 76, 100, 220, 124, 191, 382, 199, 223, 419, 326, 296, 561, 373, 368, 983, 400, 435, 1001, 514, 872, 1145, 630, 689, 1483, 956, 794, 1981, 926, 1075, 2624, 1085, 1122, 2340, 1442, 1700 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Hugo Pfoertner, Table of n, a(n) for n = 1..500

FORMULA

a(n) = A002375(n^3).

MATHEMATICA

f[n_]:=Length[Select[2 n - Prime[Range[2, PrimePi[n]]], PrimeQ]]; Table[f[n^3], {n, 60}] (* Vincenzo Librandi, May 26 2018 *)

PROG

(PARI) for (n=1, 50, k=0; n3=2*n^3; forprime(p=3, n3/2, if(isprime(n3-p), k++)); print1(k, ", "))

(MAGMA) A305126 := func<n|#[p:p in[3..n]|IsPrime(p)and IsPrime(2*n-p)]>; [A305126(n^3):n in[1..70]]; // Vincenzo Librandi, May 26 2018

CROSSREFS

Cf. A002375, A305125.

Sequence in context: A119435 A193972 A332357 * A044043 A133128 A057337

Adjacent sequences:  A305123 A305124 A305125 * A305127 A305128 A305129

KEYWORD

nonn

AUTHOR

Hugo Pfoertner, May 26 2018

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 June 18 22:00 EDT 2021. Contains 345125 sequences. (Running on oeis4.)