A238573 a(n) = |{0 < k <= n: prime(k*n) + 2 is prime}|.
0, 1, 1, 0, 3, 0, 4, 1, 2, 3, 1, 3, 4, 4, 4, 4, 1, 3, 6, 5, 3, 3, 4, 6, 3, 8, 5, 6, 3, 4, 2, 10, 6, 5, 7, 8, 6, 8, 7, 5, 7, 5, 11, 7, 7, 8, 8, 11, 6, 5, 7, 11, 11, 7, 4, 9, 7, 3, 5, 7, 7, 11, 8, 13, 9, 8, 7, 7, 12, 10, 8, 11, 8, 15, 8, 9, 9, 15, 13, 4
Offset: 1
Keywords
Examples
a(2) = 1 since prime(1*2) + 2 = 3 + 2 = 5 is prime. a(3) = 1 since prime(1*3) + 2 = 5 + 2 = 7 is prime. a(8) = 1 since prime(8*8) + 2 = 311 + 2 = 313 is prime. a(11) = 1 since prime(3*11) + 2 = 137 + 2 = 139 is prime. a(17) = 1 since prime(1*17) + 2 = 59 + 2 = 61 is prime.
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..5000
- Zhi-Wei Sun, Problems on combinatorial properties of primes, arXiv:1402.6641, 2014.
Programs
-
Mathematica
p[k_,n_]:=PrimeQ[Prime[k*n]+2] a[n_]:=Sum[If[p[k,n],1,0],{k,1,n}] Table[a[n],{n,1,80}]
Comments