OFFSET
1,3
COMMENTS
Conjecture: For any integer m > 2, every positive integer can be written as the sum of two distinct elements of the set {floor(p/m): p is prime}.
Note that Goldbach's conjecture essentially asserts that any integer n > 1 can be written as floor(p/2) + floor(q/2) with p and q prime.
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4) = 2 since 4 = 0 + 4 = 1 + 3 with 0,1,3,4 elements of the set {floor(p/3): p is prime}. Note that floor(2/3) = 0, floor(3/3) = 1, floor(11/3) = 3 and floor(13/3) = 4.
MATHEMATICA
S[n_]:=Union[Table[Floor[Prime[k]/3], {k, 1, PrimePi[3n+2]}]]
L[n_]:=Length[S[n]]
Do[r=0; Do[If[Part[S[n], x]>=n/2, Goto[cc]];
If[MemberQ[S[n], n-Part[S[n], x]]==True, r=r+1]; Continue, {x, 1, L[n]}]; Label[cc]; Print[n, " ", r]; Continue, {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Apr 01 2015
STATUS
approved