A285770
Let q_1
0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 1, 2, 4, 5, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 3, 3, 1, 2, 3, 1, 1, 2, 0, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 3, 2, 1, 5
Offset: 1
Keywords
Crossrefs
Cf. A277688.
Programs
-
PARI
a(n) = {i = 0; forprime(p=2, 2*n+1, if ((gcd(p, 2*n+1)==1) && ((2*n-p) % 2) && isprime((2*n-p+1)/2), i++; if (isprime(2*n+2*p+1), return(i)););); return(0);} \\ Michel Marcus, Apr 29 2017
Extensions
More terms from Peter J. C. Moses, Apr 25 2017
Comments