A220572 Number of ways to write 2n-1=x+y (x,y>=0) with x^18+3*y^18 prime.
1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 4, 5, 4, 1, 2, 4, 1, 4, 1, 2, 1, 2, 1, 6, 1, 4, 2, 4, 3, 6, 3, 2, 4, 2, 5, 6, 4, 5, 4, 5, 5, 8, 7, 4, 7, 7, 6, 7, 4, 6, 7, 5, 6, 3, 11, 7, 1, 5, 3, 5, 6, 6, 10, 4, 13, 12, 9, 4, 9, 10, 5, 8, 3, 6, 7, 5, 4, 8, 13, 6, 3, 5, 5, 11, 6, 13, 4, 9, 10, 8, 12, 11, 8, 7, 10, 8, 7, 8, 8
Offset: 1
Keywords
Examples
a(3)=1 since 2*3-1=5=1+4 with 1^18+3*4^18=206158430209 prime.
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..5000
- Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588.
Crossrefs
Programs
-
Mathematica
a[n_]:=a[n]=Sum[If[PrimeQ[k^18+3*(2n-1-k)^18]==True,1,0],{k,0,2n-1}] Do[Print[n," ",a[n]],{n,1,100}]
Comments