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!)
A305125 Number of ways to express n^2 as average of two primes p1 < p2. 2
0, 1, 2, 2, 4, 6, 3, 3, 10, 8, 8, 17, 9, 11, 27, 11, 12, 27, 14, 21, 39, 17, 19, 36, 28, 22, 48, 25, 24, 75, 30, 25, 68, 35, 56, 68, 37, 40, 93, 54, 43, 103, 42, 52, 125, 51, 49, 117, 64, 76, 130, 63, 56, 135, 99, 78, 151, 76, 73, 198 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

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

FORMULA

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

MATHEMATICA

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

PROG

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

CROSSREFS

Cf. A002375, A172989, A304874, A304875, A304903, A304904, A304905, A305126.

Sequence in context: A319579 A286631 A286243 * A260095 A209999 A127718

Adjacent sequences:  A305122 A305123 A305124 * A305126 A305127 A305128

KEYWORD

nonn,look

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 20 08:25 EDT 2021. Contains 345162 sequences. (Running on oeis4.)