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