OFFSET
1,10
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..5000
EXAMPLE
Examples:
n a(n)
0-7 0
8 1 2+2+4,
9 1 2+3+4,
10 2 2+2+6 = 3+3+4,
11 2 2+3+6 = 2+5+4,
12 2 3+3+6 = 3+5+4,
13 3 2+2+9 = 2+5+6 = 2+7+4,
14 5 2+2+10 = 2+3+9 = 3+5+6 = 3+7+4 = 5+5+4,
15 3 2+3+10 = 2+7+6 = 3+3+9,
16 5 2+5+9 = 3+3+10 = 3+7+6 = 5+5+6 = 5+7+4,
17 3 2+5+10 = 2+11+4 = 3+5+9,
18 6 2+2+14 = 2+7+9 = 3+5+10 = 3+11+4 = 5+7+6 = 7+7+4, etc.
MATHEMATICA
semiPrimeQ[x_] := Plus @@ Last /@ FactorInteger[x] == 2; f[n_] := Block[{c = 0, i = j = 1, p = PrimePi[(n - 4)/2]}, While[i < p + 1, j = i; q = PrimePi[n - 4 - Prime@i]; While[j < q + 1, If[semiPrimeQ[n - Prime@i - Prime@j], c++ ]; j++ ]; i++ ]; c]; Array[f, 70] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Jan 21 2008
EXTENSIONS
More terms from Robert G. Wilson v, Jan 21 2008
STATUS
approved