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
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, May 26 2018
STATUS
approved