A220272 Number of ways to write n=x^2+y (x>0, y>0) with 2*x*y-1 prime.
0, 0, 1, 1, 2, 1, 2, 1, 1, 3, 2, 2, 2, 1, 1, 3, 3, 1, 3, 2, 2, 3, 2, 2, 3, 2, 2, 3, 1, 1, 4, 3, 1, 2, 2, 2, 5, 3, 3, 3, 4, 3, 3, 1, 3, 3, 2, 2, 4, 4, 2, 6, 2, 2, 4, 4, 2, 3, 1, 2, 5, 4, 1, 3, 3, 3, 6, 2, 3, 5, 4, 3, 3, 3, 3, 6, 3, 2, 4, 2, 3, 4, 3, 2, 5, 3, 5, 2, 1, 1, 9, 4, 3, 4, 3, 5, 3, 2, 2, 2
Offset: 1
Keywords
Examples
a(18)=1 since 18=3^2+9 with 2*3*9-1=53 prime.
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..20000
- Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588.
- Zhi-Wei Sun, Re: A curious conjecture on primes, a message to Number Theory List, Dec. 12, 2012.
Programs
-
Mathematica
a[n_]:=a[n]=Sum[If[PrimeQ[2k(n-k^2)-1]==True,1,0],{k,1,Sqrt[n]}] Do[Print[n," ",a[n]],{n,1,100}]
Comments