A320447 n such that all n - p are prime where p is prime in range n/2 <= p < n.
5, 7, 10, 16, 36, 210
Offset: 1
Examples
a(5)=36, because the primes in the range 18 <= p < 36 are {19, 23, 29, 31}. Also the complementary set {17, 13, 7, 5} has all its members prime. This is the 5th occurrence of such a number.
Links
- Mehdi Hage-Hassan, An elementary introduction to Quantum mechanic, hal-00879586 2013 pp 58.
Programs
-
Mathematica
plst[n_] := Select[Range[Ceiling[n/2], n-1], PrimeQ]; lst={}; Do[If[plst[n]!={}&&AllTrue[n-plst[n], PrimeQ], AppendTo[lst, n]], {n, 1, 1000}]; lst
Comments